








@ Disquettes spéciales avec BOOTDATA 
& Lissajous : évolution de la courbe 
@ Fenêtres en HGR sur l'Apple // 

@ Tri de Chaînes sur Macintosh 

@ Carte Super Série et CP/M 

@ Courbes avec le MSBasic 


& 630005 : un accessoire 
@ Startup Pascal complet ds 

S Commandes ProDOS EE 
@ Programme éducatif 
& Loupe pour HGR 

& CALLRWTS 
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Des dizaines et des dizaines d'Apple II 4 
ont déjà été transformés en ser- 
veurs par leurs propriétaires, 
avec l'un ou plusieurs des Vs 
systèmes COnÇus pour = 
exploiter les perfor- LS 
mances uniques de Lo 4: 
la care Apple-Tel*. "+ 

l Nestor: ù 


pour la 
consul- 
tation d'un service d'infermatien à parür de Minitels. Arecescence. Mets-clés. Journal cyclique. 
Jusqu'à quatre accès simultanés. De 25 à 2 080 pages Télétel. La moins chère des 
configurations mini-serveur disponibles sur le marché. 


Fakir: une puissante messagerie électronique, permettant toutes les formes 
d’interactivité. Communication individuelle, sélective eu globale. Bulletin d'infor- 
mation. Gestien des comptes. Annuaire. Pour professionnels, libéraux, associa- 
tions. collectivités. Jusqu'à 500 abonnés et 1 000 messages en attente 





Télépom: c'est un basic orienté vidéotex er télécommunications. Pour Comme 
créer t@utes les applications télématiques dont veus rêvez: serveur uni- terminal, 
versel (texte, graphique), gestion et partage de fichiers. Télétraitement. votre Applell 
Exploitation à dismnce de votre système. équité de la amæ 

Apple Tel rous fera 
Sourigraph: éditeur plein écran Télétel Très inspiré de déceuTur les Haisrs 
« MacPaint», Sourigraph permet l'insertion, la suppression. le subtils (ef) birætrié mES- 
déplacement de caractères, de lignes ou de 2@nes. Cerclez. sables) des :éècomms 
tirez, cliquez, pas besoin de clavier peur travailler votre nications aufe Vs" 
page Télétel. Mains libres! 


Apple-Tell Mimitel: 

Minitel sur Apple 11 Em 

de ages Télé. Praäre ame 

Sortie papier. Enregistrement des ixies sur 

disqueltes (peur traitement dans les ent Sms 

dards de l'Apple: Multiplan, AbhleW rer. = 
etc.) Fourni avec la carte Apple-Tell 


Et les autres: systèmes sous Pascal L.C.S.D. et 
ProDos, modules «Merveilles d'AC.M. 
{en mono ou en multivoies), etc. 
{Consultez-nous.) 





PLSDPERRENT 





ASCII Express The Pro: un très grand sind 


*Caractérisiques américain des télécommunications sur Apte 
générales: | IBM PC, adapté à Apple-Telt. Emulation TTY, 

+ modem 1240075 IBM 3101, Télevidee 912. Precédures auiemdiqæ= 
in a Émission et réception de fichiers. Enregistrement des 
os nées sur disquette, Impression. 300300 et 75/1280. 

one TE Yersion-Com: des fonctions comparables à celles d'ASCH-Expresx 
oo. eo mais avec le luxe désormais inappréciable du contrêle par souras 
(N&B) et des menus déroulants. Couper/Copier/Coller Ascenseur 

: ST. f Calva-Kit: consultation entièrement automatique du serveur Calvados cuquei 


sont abonnés des milliers d'utilisateurs Apple et que les Américains nous enrient 
(messagerie, panneaux d'annonces, Bourse, dépêches de l'AFP, etc.). 


Discobole: transfert de disquettes par téléphone. À grande vitesse 
(120 caractères bar seconde) et en toute sécurité. Dos. PreDos, Pascal, CP/M. 


Télébasic: Pomme d'@r 1984 du meilleur logiciel système. Extensien télématique du 
basic Apple, permettant de programmer la carte Apple-Tell dans tous ses recoins. Ter- 
minaux automatiques, mais aussi serveurs. Par l'auteur de Version-Com. 


Basi: ce module système permet la commande du Modem de la carte FE 
Apple-Teli depuis le Basic, sous ProDos. 


HELLO 
Et les autres: capture d'adresses depuis Annuaire Électronique, ? 1, rue de Metz 
télétraitement ? 75016 PARIS 


S.M.16 


sur Apple IL, etc. Tél: (1) 45.23.30.34 
{Consullex-neus.} s Télex: 641 155 
Nem... D 
nr sinmuseses ra 
? Société 

D Adresse … RU US 
., 
Î Cede pestal Tél. __— 
I [ Souhaire recevoir une decumentatien sur Le système Apple-Teill. 
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Le chemin des écoliers, si est souvent le pas- 
sage par Xe Bureau. Pour changer d’application, il suffit 
aujourd'hui d’appeler l'accessoire “Raccourci”. Après avoir 
confirmé votre intention de quitter le programme en cours, 
une fenêtre de sélection apparaît et un simple double-clic 
vous fait passer de Basic à ScreenMaker, de MacPaint à 
Muläiplan et, pourquoi pas, de MacForth à MacPoker… 


Des avantages : 


Sur un 128 Ko, ne pas passer par le Finder c’est 
éviter des manipulations gourmandes en temps et 
en patience. 

Sur un 512 Ko, les applications disposent de toute 1a 
place mémoire. 

Sur un Mac Plus, tes changement sont quasi- 
instantanés et les 768 Ko de mémoire cache sont 
disponibles. 

Compatible avec Switcher : vous pourrez 
changer l’une ou l’autre des applications gérées par 
Switcher directement par cet accessoire. 

Compatible disques durs : même si votre dis- 
que dur est partagé via AppleTalk.… 

Disponible à tout moment, “Raccourci” est toujours 
utilisable car à ne nécessite pas une installaton 
préalable des applications (sait-on toujours à 
l'avance quelles applications seront nécessaires à 
un travail donné ?). 


Avec Pom’s, travaillez directement ! 





ldle 





8 propos de MacDrain…. 


ad litteram 


Album 

Horloge 

Calculette 

Tableau de bord 
Sélecteur d'imprimante 




















M D.MP 

<& Bowunload 

& Edit 

& Fedit 3.0 

& Font-DA Mover 
CO GBle.3 

& MacDrauw 

à MacPaint 

& Macllrite 


em Prog.cp 





Disquette “Raccourci” - 200,00 F franco - Bon de commande page 74-eÉditions MEV 





Hervé Thiriez 














Éditorial 


quil ele mise en pages ‘et d’une 
é Vous roposer un “Pom’s' "toujours 
mmes Apple {l Sur la même dis- 
ous avons été conduits à à supprimer 





que leur absence ne gêne en rien l’ utilisation. Nous ne doutôns pas qu' entre toutes les REMS et 
plus de programmes, chacun aurait fait le même choix... Rappelons à ce sujet que les sources 
sont maintenant sauvegardés sous format TEXT pour une utilisation avec tous les assembleurs. 
Les problèmes qui proviennent de la différence de syntaxe entre assembleurs seront abordés 
dans un prochain article. 


Notre stock d'articles en attente d’impression nous assure, pour de nombreux numéros, densité, 
qualité et originalité. Dans ces colonnes, prochainement, une élégante gestion d’adresses, un in- 
terpréteur doté entre autre d’un buffer clavier, l’& au s cours de la souris, un écran virtuel 
style MagicWindow, un calculateur, des accessoires de bureau. En résumé : une véritable as- 
surance chômage pour Apple // et Macintosh. 


Pas de chômage non plus pour votre Z80 : J.-F. Rabasse s’est attaché à la communication en 
CP/M . La première partie de cette étude vous offre une commande pour contrôler de façon 
simple la carte série. Insistons sur le caractère autonome de chacune des deux parties ; 
désagréables en effet ces programmes qui ne fonctionnent qu’à la réception du énième numéro ! 


Dans ces pages, outre Basic, Pascal, et Assembleur, un programme pour nos tout-petits, 
illustrant l’utilisation de ToolKit d’Apple et le fort intéressant courrier de Michel Duroc à 
propos d’AppleWriter : vous avez dit diversité ? 


Ordico de Roland Jost est une nouvelle disquette Pom’s pour cruciverbistes, scrabbleurs et 
autr s joueurs de mots. Au-delà de la qualité de programmation et de la rapidité de r cherche, 
cette mini-base de données (d’aucuns diraient mini-BDD...) vaut par l’étendue de ses références 
dont la présentation en page 57 donne une idée. 


Nous vous donnons rendez-vous dans nos pages de novembre avec peut-être quelques éléments 
concrets sur le nouvel Apple //.. 


Ont collaboré à ce numéro : Alexandre Avrane, Jean-Luc Bazanegue, Bruno Fénaïd, Jean-Michel Gourévitch, Olivier 
Herz, Alain Idelon-Ritton, Frédéric Ivsic, Gérard Michel, Daniel Mueller, Patrice Neveu, 
Dominique Otteilo, Christian Piand, Jean-François Rabasse, Frédéric Rosay, Marianne 
Sutz, Hervé Thiriez, Julien Thomas, Norbeit Vurlod. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez, 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Éditions MEV - 12, rue d'Anjou - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Éditions MEV. 

Diffusion : NMPP, 

Impression : Rosay - 47, avenue de Paris - 94300 Vincennes. Tél. : (1) 43.28.18.63. 


Pom's est une revue indépendante non rattachée à Apple Computer, Inc. ni à Apple Computer France S.A.R.L. Apple, le logo 
Apple, Mac et le logo Macintosh sont des marques déposées d'Apple Computer, Inc. 
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e programme, sans 
prétendre égaler les 
performances du Mac, 
permet de donner une 
touche très professionnelle à vos 
programmes en leur permettant 
d'utiliser le principe des fenêtres 
graphiques. 
Il permet d'ouvrir simultanément 
jusqu'à deux fenêtres graphiques 
(ce qui est suffisant dans la 
plupart des cas), la deuxième 
venant se superposer à la 
première qui est elle-même 
sauvegardée puis redessinée. 


Syntaxe 


FENETRAGE est conçu pour 
être appelé à partir d'un 
programme Applesoft, et utilise 
l'ampersand (&) comme indicatif 
d'appel. 


& OUVRE haut, bas, 
droite, gauche 


(& OUVRE 56, 136, 40, 239 ou 
& OUVRE HT,136,DR,GH par 
exemple) ouvre une nouvelle 
fenêtre d'après les coordonnées 
graphiques. Le programme 
dessine automatiquement un 
cadre autour de la fenêtre. 

Les valeurs peuvent être données 
de manière statique ou par 
l'intermédiaire de variables 
Applesoft. Elles doivent être 
comprises dans la plage O à 191 
en vertical, O à 279 pour 
l'horizontal. Si haut < bas, ou 
droite < gauche, le programme 
inverse automatiquement les 
coordonnées. Les dimensions 
minimum d'une fenêtre sont : 10 
points verticaux, Î4 points 
horizontaux. 


CE PROGRAMME PERMET D'OUURIR 
UNE FENETRE TOUT EH CONSERUANT 
CE QU'IL Y AVAIT EN DESSOUS: 
L'UTILISATEUR PEUT FAIRE TSUT 
CE QU'IL DESIRE À L'INTERIEUR 
DE CETTE FENETRE. 


& FERME 


ferme la dernière fenêtre ouverte 
en restituant l'affichage de la 
première fenêtre. 


Le programme utilisateur peut 
écrire sur les fenêtres graphiques 
par tout moyen à sa convenance 
(HPLOT, DRAW, etc.) mais a la 
responsabilité de ne pas dépasser 
les bornes de la fenêtre qu'il a 
définie. 


Afin de minimiser l'occupation en 
mémoire de la routine 
FENETRAGE, celui-ci ne 
contrôle pas certains cas 
d'erreurs : par exemple, 
l'ouverture d'une troisième 
fenêtre graphique est autorisée 
mais détruira la première fenêtre 
qui ne pourra plus être restaurée. 


Fonctionnement 


Le programme tourne 
indifféremment sous DOS 3.3 ou 
ProDOS, et quelle que soit la 





configuration mémoire de votre 
Apple (compatibilité...). Très 
schématiquement, lorsqu'il est 
appelé, les opérations suivantes 
sont entreprises : 


° siune ouverture est demandée : 

- contrôle de la syntaxe 

- sauvegarde de l'affichage 
graphique actuel, soit en 
carte langage (si DOS 3,3 et 
une carte langage), soit en 
dessous d'Himem 

- dessin du cadre autour des 
coordonnées de la nouvelle 
fenêtre 

- mise à blanc dans le cadre de 
la nouvelle fenêtre 


* siune fenneture est demandée : 
- Jestauration de l'ancienne 
fenêtre 


H se loge à partir de l'adresse 
$9200 et manipule Himem ainsi 
que le vecteur de l'ampersand. 





Pom's n° 26 








Fichiers utilisés 
FENETRAGE code objet 
exécutable 
FENETRAGESS source en Big 
Mac 
FENETRAGE.DEMO 


Programme 
‘FENETRE.DEMO’ 


1 REM  FENETRAGE.DEMO 
S PRINT CHR$ (17) 
10 PRINT CHR$ (4)'"BLOAD HGRECR.LIB, A$8000 


20 PRINT CHR$ (4) "BRUN FENETRAGE" 


30 HM = 32768 

35 HOME 

40 HGR : POKE 49234,0 

50 HCOLOR= 3: ROT= 0: SCALE= 1 


60 & OUVRES6, 136, 40,239 

70 A$ = "CE PROGRAMME PERMET D'OUVRIR ‘“: CA 
LL HM,A$, 50, 70 

80 A$ = "UNE FENETRE TOUT EN CONSERVANT": C 
ALL HM,A$, 50, 80 

90 A$ = "CE QU'IL Y AVAIT EN DESSOUS. ": 
L HM,A$,50, 90 

100 A$ = "L'UTILISATEUR PEUT FAIRE TOUT": C 
ALL HM,A$, 50,100 

110 A$ = "CE QU'IL DESIRE À L'INTÉRIEUR": C 
ALL HM,A$, 50,110 


CAL 


120 A$ = "DE CETTE FENETRE.": CALL HM,A$, 50 
:120 
125 A$ = "APPUYEZ SUR TOUCHE, S.V.P.": CALL 


HM,A$,10,185 
130 GET A$: & FERME 


140 & OUVRE30,161, 80,199 

150 A$ = "SI L'APPLICATION": CALL HM,A$, 90, 
40 

160 A$ = "SORT DE LA FENETRE": CALL HM,A$,9 
0, 50 

170 A$ = "ALORS, À LA“: CALL HM,A$, 90, 60 

180 A$ = "FERMETURE DE CETTE": CALL HM,A$,9 
0, 70 

190 A$ = "DERNIERE, TOUT CE": CALL HM,A$, 90 
, 80 

200 A$ = "QUI À ETE MODIFIE": CALL HM,A$, 90 
, 90 

210 A$ = "EN DEHORS DE LA": CALL HM, A$, 90,1 
00 

220 A$ = "FENETRE RESTERA": CALL HM,A$, 90,1 
10 

230 A$ = "TEL QUEL.": CALL HM,A$, 90, 120 

240 A$ = “PAR EXEMPLE:": CALL HM,A$, 90,140 

250 GET A$: & OUVRE10,175, 70,209 

260 FOR J = 7 TO 180 STEP 10: FOR I = 7 TO 
279 STEP 15 


CALL HM,A$,I,J 


270 A$ = "X": 
280 NEXT I,J 
290 GET A$: 

300 HGR : 


& FERME: GET A$ 
POKE 49234,0 
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démonstration en Applesoft 


HGRECR.LIB routine d'Eric 
Ringot (Pom's 15) 


Le programme FENETRAGE. 
DEMO utilise 


HGRECR d'Eric Ringot parue 
dans le numéro 15 de Pom's pour 
écrire facilement des caractères en 
HGR sans avoir à utiliser une 
moisson de HPLOT. & 


la routine 


310 A$ = "APPUYEZ SUR TOUCHE, S.V.P.": CALL 
AM, A$, 10,185 
320 & OUVRE1O, 170, 30,249 
330 ÀA$ = “LA SYNTAXE": 
0,20 
340 A$ = "CE PROGRAMME EST FAIT POUR ETRE": 
CALL HM,A$, 40,40 
350 A$ = "UTILISE EN BASIC, DONC POSSEDE": 
CAUL HM, A$, 40, 50 
360 A$ = "UNE SYNTAXE TRES SIMPLE. ": 
M, A$, 40, 60 
370 A$ = "POUR OUVRIR UNE FENETRE, IL": 
L HM,A$, 40, 70 


CALL HM,A$, 9 


CALL H 


CAL 


380 A$ = "SUFFIT DE FAIRE:": CALL HM,A$,40, 
80 

390 A$ = "- & OUVRE HAUT, BAS, DROITE, GAUCHE" 
: CALL HM, A$, 40, 90 

400 A$ = "SI HAUT EST INFERIEUR À BAS": CAL 
L HM,A$, 50, 100 

410 A$ = "LE PROGRAMME INVERSE LES": CALL H 


M,A$, 50,110 
420 A$ = "DEUX COORDONNEES (DE MEME POUR": 
CALL HM, A$, 50, 120 


430 A$ — "DROITE ET GAUCHE).": CALL HM,A$,5 
0,130 
440 A$ = "SI BAS-HAUT<10 ALORS BAS-HAUT+10" 


CALL HM,A$,50,140 
450 A$ = "DE MEME SI GAUCHE-DROITE<14 ALORS 
“: CALL AM, A$,50,150 


460 A$ = "GAUCHE=DROITE+14": CALL HM,A$, 50, 
160 

470 GET A$: & FERME 

480 & OUVRE10,170,30,249 

490 A$ = "L A SYN TAXE": CALL HM,A$,9 
0,20 

500 A$ = "CECI POUR DES RAISONS DE COMMODIT 
ES": CALL HM,A$, 40,40 

510 A$ = "AU NIVEAU DU PROGRAMME ET DE": CA 


LL HM,A$, 40, 50 
520 A$ = "L'UTILISATION (ON NE PEUT RIEN": 


CALL AM,A$, 40, 60 


530 A$ = "FAIRE DANS UNE FENETRE PLUS PETIT 
E)": CALL HM,A$, 40, 70 

540 A$ = “POUR REFERMER UNE FENETRE IL SUFF 
IT": CALL HM,A$, 40, 90 

550 A$ + "DE FAIRE:": CALL HM,A$, 40,100 

560 A$ = "- & FERME": CALL HM,A$,40,110 

570 A$ = "ALORS LA DERNIERE FENETRE OUVERTE 


“: CALL HM,AS$, 50, 120 


580 A$ = "EST REFERMEE.": CALL HM,A$, 50, 130 

590 GET A$: & FERME 

600 & OUVRE10, 170, 90,189 

610 A$ = "FENETRAGE EST LE": CALL HM,A$, 95, 
20 


620 A$ = "PROGRAMME DE": CALL HM,AS$, 95, 30 

630 A$ = "DE FENETRE, ": CALL HM, AS, 95, 40 

640 A$ = "FENETRAGE.S EST": CALL HM, AS, 95,5 
0 

650 A$ = "LE CODE BIG MAC.": CALL HM, A$, 95, 
60 

660 A$ = "LE PROGRAMME": CALL HM, AS, 95, 80 

670 AS = "PEUT AUSSI": CALL HM,A$, 95, 90 

680 AS = "TOURNER SOUS": CALL HM,AS$, 95, 100 

690 AS = "PRODOS.": CALL HM,AS, 95,110 


700 GET A$: & FERME 

710 & OUVREZ20, 90,20, 259 

720 ÀA$ = "“CONCU ET REALISE PAR:": 
$,25, 30 

730 A$ = "ROZAY FREDERIC": CALL HM, A$, 25,40 

750 A$ = "UN GRAND MERCI À ERICK RINGOT": C 
ALL HM,A$,25, 70 

760 A$ = “POUR LE PROGRAMME HGRECR": 
M,AS$, 25, 80 

770 GET A$: & FERME 

800 FOR I = 1 TO 1000: NEXT : 


CALL HM,A 


CALL H 


TEXT 


Source ‘FENETRAGE.S’ 
Assembleur Big Mac 





1 
2 tatin hhéetititiietesrhetetetete 
3 * + 
4 * AFFICHE / EFFACE UNE FENÊTRE #* 
S * EN GRAPHIQUE HAUTE RESOLUTION # 
6 * + 
7 #* PAR F. ROZAY . 
8 + LA 
9 PEFFETEE EI EE I ELEr ET ZT 121112111121] 
10 
11 
Ja LST OFF 
13 
14 ORG 59200 
15 
16 DEP = 506 Pcr pour dessin fenetre 
17 HBAS = $26 Adresse de la ligne HGR, 
obtenue par HPOSN 
18 LINNUM = $50 entier extrait de FAC par 
GETADR 
19 HIMEM _ S73 Vaieur de HIMEM 
20 CHRGET = $B1 
21 CHRGOT = $87 
22 xD7 = SES No de l'octet dans lequel se 
trouve le point HGR 
23 HPAGE = $SE6é No de là page HGR vtiiisée 
($20:pagel 540:page2) 
24 
25 AMPERV 5 $03F6 Adresse du sous-programme à 
26 * utiliser s1 & est exécutée 
27 
28 ERROR = SD412 Emission d'un message 
d'erreur {code dans X-REG) 
29 DATA = SD995 Positionne TXTPTR sur 
l'instruction BASIC suivante 
30 FRMNUM = $DD67 Prend le chiffre ou la valeur 
31 * de 13 variable pointée par 1XTPTR et le 


range dans FAC 

SE6FS5 meme Chose que FRMNUM mals 
avec des chiffres <256 

$E752 Transforme FAC en Un entier à 
34 * 2 octets et le range dans LINHUM 
35 HPOSN = $F411 Donne l'adresse de la ligne 
36 = avec les coerdonnées du point (A:VERT X:H-LO Y:H-HI) 
37 


32 GETSYTC = 


33 GEYADR = 


as # BRANCHE LE € : 
40 * SUR LE PROGRAMME * 


41 * PRINCIPAL , 

42 s+ththastisittsitits 

43 

44 HICH LDA  #$<MAIN partie basse et partie haute 

45 STA AMPERV de l'adresse du début du 
programme, les range 

46 LDOA  $>MAIN dans AMPERV pour Qqüe le 
programme soit exécuté 

47 STA AMPERV+1 si un '£&' est rencontré dans 
le programme BASIC 

48 LDA #<HIGH change la valeur du 2TMEM 
pour que le programme 

43 ST2 HIMEN ne soit pas ecrasé pa: les 
variables du programe 

50 LDA #>HIGH BASIC 

Si STA HIMEM+] 

52 LPA $BF00 voit si on est sous ProDDS 

53 CMP #54C 

54 BEQ YAPRODOS 

55 BIT $Cc083 voit si on a une carte 
langage 

56 BIT SC083 

57 ZDA SFFEF 

58 CMP 45FA 

S3 BNE YAISK 

69 YAPRODOS LDA #$$70 ProDOS alors on sauvers 

61 STA HSAUVE l'image à partir de $7000 

62 BIT $c081 

63 LOA Ÿ$FF 

64 STA HIMEM et on rechange la valeur du 

65 LDA #$6F HIMEM {->S6FFE) 

66 STA HIMEM+I 

67 &T. 

68 YA16K LDA #$EO0 si on a une carte langage 

69 STZ HSAUVE alors on sauvera l'image à 

70 BIT $CcO081 partir de $E000 

71 RTS 

72 

73 * PROGRAMME PRINCIPAL 

74 

75 MAIN EQU # 

76 LDY #0 

CEA USR CHRGOT 

78 MAINI CMP CMD, Y prend ce qu'il y à après le 
's' et le compare 

79 BNE AUTRCMDI aux nouvelles instructions 

80 JSR CHRGET ici on compare avec ‘OUVRE! 

81 INY 

82 CPY #4 

85 BNE MAINI 

84 JSR GETBYTC prend la première coordonnée 

85 CPX #192 compare avec le bas de 
l'écran 

86 BCS ILLEGAL si c'est supérieur alors 
"ILLEGAL @UANTITY' 

87 STX TABLE 

88 JSR GETBYTC fait de meme avec la deuxième 
coordonnée 

89 CPX 48192 

80 BCS ILLEGAL 

91 STX TABLE+1 

92 JSR CHRGET 

93 JSR FRMNUM cette fois ci c'est plus 
sérieux 

94 USR GETADR Îes coordonnées peuvent 
dépasser 256 

95 JSR SEPTAL 

96 CEX #40 toujours cette comparaison 
pour voir si on sort 

#7 BCS JLLEGAL de ia fenetre 

8 STX TABLE+#2 

93 JSR CHRGET 

100 JSR  FRMNUM et encore pour la dernière 
coordonnée 

101 JSR GETADR 

102 JSR SEPTAL 

163 CEX #40 
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104 
105 
106 
107 
108 


109 
110 
211 

112 
113 

114 
115 
116 
217 


118 
119 
120 
121 
123 
123 
124 
125 
126 
127 
128 
129 


130 

131 
132 
133 

134 
135 
136 
137 
138 
139 

140 
14i 

142 
143 
144 
145 
146 
147 
148 
143 
150 
151 


152 
153 


154 
155 


156 


157 
158 
159 
190 
161 


162 
163 
164 
165 
166 
167 
168 


163 
170 
171 
172 
173 
174 
175 





MAIN2 


ILLEGAE 


AUTRCMD2 





ILLEGAL 
TABLE+3 
VERIFIE 
COORTK 
SAVE 
fenetre 
COORTK 
CADRE 


on sauve ce qu'il y à sous la 


et on affiche la fenetre 


retour au programme BASIC 


CHRGOT 
CMD, Y 

li commande 
AUTRCMD2 
CHRGET 


cette fois ci on compare avec 
"FERME" 


CPY 99 

MAIN2 
COORTX 
RECUP et on referme tout simplement 


DATA retour au programme BASIC 
#535 
ERROR 

ERROR'" 


produit un ‘“ILLEGAL QUANTITY 


LDX #510 


JMP ERROR produit un "SYNTAX ERROR" 


RATER IHAIIEITHSS 


e FENETRE © 


+ 


AH EE RÉEEES À 


CADRE 


CADREO 


CADRE1 


GAUCHE 

(HBAS),Y affiche d'abord l'octet dans 
le coin gauche en haut 

4570 

{HBAS) ,Y 


#57F 
(HBAS),Y puis va jusqu'au bout de la 
ligne en affichant 
un trait 


ZDA 
STA 


INY 
CPY 
BNE 
LDA 
ORA 


DROITE 
CADREO 
(HBAS) , Y 
#507 

droite 
(HBAS) , Y 
BUFF 
BUF'F 

LDX #0 

LOY #0 
HPOSN 
GAUCHE 

1igne 
fHBAS) ,Y 
#578 
(HBAS) ,Y 


affiche l'octet en haut à 


fait de meme avec la seconde 


#$7F 
(HBAS) , Y 
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CADRE4 


CADRES 


CADREZ2 


CADREJ 


DROITE 
CADRE1 
(HBAS) , Y 
#$0F 
(HBAS) ,Y 
BUFF 
BUFF 
LDX 40 
LOY #0 
HPOSN 
GAUCHE 
(HBAS) , Y 
ligne 
#sir 
#$IiC 
{HBAS) , Y 


effiche le trait 


et là partie droite 


LDY 


LDA et encore avec la troisième 


#500 
{HBAS),Y maintenant remplit avec des 
octets "vides" 
INY pour avoir une fenetre nofre 
à l'intérieur 
DROITE 
CADRE 4 
(HBAS},Y 
#5F8 affiche la partie du cadre 
qui se touve à droite 
#$IC 
(HBAS) , Y 
BUFF 
BUFF' 
LDX #0 
LDY #0 
HPOSN 
GAUCHE 
(HBAS) ,Y 
#$0F 
#$0E 
(HBAS) , Y 


#$0 
(HBAS) ,Y le vide 
DROITE 
CADRES 
(HBAS) , Y 
#$FO 
#$38 
(HBAS) ,Y 
BUFF cette fois ci on affiche 
toute la partie 
Burr verticale de la fenetre 
LDX 40 
LDY #0 
HPOSN 
GAUCHE 
#507 
(HBAS),Y avec d'abord l'octet à gauche 
#50 
(HBAS) , Y 
puis le milieu 
DROITE 
CADRE3 
#570 
(HBAS) , Y 
BaUFF 
BAS 
CADRE 2 
BUFF 
BUFF 
LDX #0 
LDY 40 
fait 13 meme 
JSR  HPOSN chose qu'en haut de la 
fenètre mais en sens 
LDY GAUCHE inverse 
LDA (HBAS),Y 
AND #50F 


et enfin l'octet à droite 


une fois le milieu fini on 


248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 

| 281 

| 282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
234 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 


CADRE 6 


CADRE? 


CADRE9 


CADRE8 


ORA #$0E 
STA  fHBAS),Y 


£LDA #50 
STA  (HBASJ,Y 


CPY DROITE 
BNE CADRES 


‘LBA  (HBAS),Y 


AND #5F0 

ORA #538 

STA  (HBAS),Y 
INC BUFF 

LDA BUFF 

LDX #0 

LDY #40 

JSR  HPOSN 
LDY GAUCHE 
LDA  (HBAS),Y 
AND #$1iF 

ORA À#$iC 

STA  {HBASJ,Y 


LDOA #$00 
STA  fHBAS/,Y 


CPY DROITE 
BNE CADRE7 
LDA  (HBAS),Y 
AND #5F8 

ORA #$1C 

STA  (HBAS},Y 
INC BUFF 

LDA BUFF 

IDX #0 

LDY #0 

JSR HPOSN 
LDY GAUCHE 
LDA  (HBAS),Y 
ORA #578 

STA  (HBAS),Y 


LDA #57F 
STA  fHBAS),Y 


CPY DROITE 
BNE CADRE9 
LDA (HBAS),Y 
ORA #50F 

STA  (HBAS/,Y 
INC BUFF 
LDA BUFF 

LDX #0 

LDY #0 

‘JSR HPOSN 
LDY GAUCHE 
LDA  ({HBAS),Y 


ORA #570 

STA  {HBAS),Y 
INY 

LDA #$7F 

STA  (HBAS),Y 
INY 

CPY DROITE 
BNE CADRES 
LDA  (H8AS5),Y 
ORA #$07 

STA  (HBAS),Y 
RTS 


318 "rtéttéttétitiiti" 


319 
320 
321 
322 


si SAUVE né 
e IMAGE->RAM # 


323 vtrtetrttesstttets" 


324 


325 SAVE 


BIT $COB1 sauve ce qu'il y a sous la 


fenetre dans la page 


LDA HAUT 
STA BUFF 
INC BAS 
SAVEI LOA BUFF 
LDX #0 
LOY #0 
JSR HPOSN 
LDA HBAS 
STA DEP 
LDA H8AS+1 
STA DEP+i 
LDA HPAGE 


LDA HSAUVE 
STA HPAGE 
LDA BUFF 
ox #0 
LDY 40 

JSR HPOSN 


STA HPAGE 
LDY GAUCHE 


SAVEZ2 INY 


LDA  (DEP),Y 
STA  {HBAS),Y 


CPY DROITE 
BNE SAVEZ2 
INC BUFF 
LDX BUFF 
CPX BAS 
BNE  SAVEI 


ARR ER EREREE 
* * 
* RECUPERE * 
* RAM-> IMAGE * 
* * 
Aédatttthtttthttté 


RECUP LDA HAUT 


chofsie au début du programme 


récupère ce qu'il Y avait 


sous la fenetre 


STA BUFF 
INC BAS 
RECUP1 BIT $C081 
LDA BUFF 
LDOX #0 
LDY #0 
JSR  HPOSN 
LDA  HBAS 
STA DEP 
LDA HBASt+I 
STA DEP+1 
LDA HPAGE 


LDA HSAUVE 
STA HPAGE 
LOA BUFF 
LOX #0 

IpYr 60 

JSR HPOSN 


STA HPAGE 
LDY GAUCRE 


RECUP2 INY 
BIT S5C083 
BIT SCc083 


LDA  {HBAS),Y 


STA  (DEP),Y 
CPY DROITE 
ANE RECUP2 
INC BUFF 
[OX BUFF 
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404 445 SB8C TABLE 
405 #W4p+eitetertesests 446 CMP 8 
406 * ° 497 BCC RECALE 
407 * SEPTAL * 448 
408 * DIVISION » 449 VERIFI LDA TABLE+3 fait de meme avec les 
409 * FAR 7 re coordonnées horizontales 
410 * e 450 SEC 
A1Z #éttshtitérhéthtet 451 SBC TABLE+2 
412 453 BMI INVERSEI 
413 SEPTAL LOA F0 divise les coordonnées 452 cæ #2 
horizontales par 7 454 BCC RECALEÏ 
414 LDX  LINNUM Dour obtenir le numéro de 455 
l'octet dans lequel 456 RTS 
415 LDY LINNUM+1 se tr uve le point HGR 457 
416 JSR  HPOSN 458 INVERSE LDA TABLE 
417 LOX XD7 459 LOX TABLE+1 
418 RTS 460 STA TABLE+] 
419 461 STX TABLE 
420 * PREND LES 362 JMP VERIF2 
421 * COORDONNEES 463 
422 * POUR LA FENETRE 464 RSCALE LDA TABLE 
423 465 C£C 
424 COCRTK LDOA TABLE 466 AOC f8 
425 STA HAUT 467 STA TABLE+I 
426 LDA TABLE+i 468 JMP VERIFI 
427 STA BAS 469 
428 LOA TABLE+2 470 INVERSE! LDA TABLE+2 
423 STA GAUCHE 471 LDX TABSLE+3 
430 LDA TABLE+3 472 STA TABLE*#3 
431 STA DROITE 473 STX TABLE42 
432 RTS 474 UMP  VERIFI 
433 475 
934 #t+éththhtéttée# 476 RECALE LDA TABLE+2 
435 * e 477 CLC 
436 *  VERIFIE * 478 ADC #2 
437 * ° 479 STÀA TABLE+3 
438 #rpsrrrrtrttesst 480 RTS 
439 481 
440 VERIFIE LDA TABLE*I compare les 2 coordonnées 492 TABLE HEX 00000000 
verticales 483 CMD ASC  'OUVREFERME" 
441 CMP TABLE Îles àrrange à la valeur la 484 HAUT HEX 00 
plus petite de la 485 BAS HEX 00 
442 BCC INVERSE fenetre ou les inverse si la 486 GAUCHE HEX 00 
première est 487 DROITE BEX 00 
443 VERIF2 LDA TABLE+1 supérieure à ls seconde 488 BUFF sex 00 
444 SEC 499 HSAUVE ÆEX 00 
Réca itulation 9290- F4 94 20 45 94 20 F4 94 92D0- 95 8D 74 95 AD 70 95 A2 
P 9298- 20 C5 92 4C 95 D9 60 A0 92D8- 00 AO 00 20 11 F4 AC 72 
‘FENETRA GE 92A0- 05 20 B7 00 D9 66 95 DO 92E0- 95 BI 26 09 70 91 26 CE 
92A8- 17 20 B1 00 C8 CO 09 DO 92E8- A9 7F 91 26 C8 CC 73 95 
Après avoir saisi ce code sous 92B0- F3 20 F4 94 20 92 94 4C 92F0- DO F8 B1 26 09 07 91 26 
: 92B8- 95 D9 60 A2 35 4C 12 D4 92F8- EE 74 95 AD 74 95 A2 00 
moniteur, vous le sauvegarderez par 
BSAVE FENETRAGE.A$9200.L5376 92C0- A2 10 4C 12 D4 18 AD 71 9300- A0 00 20 11 F4 AC 72 95 
92C8- 95 E9 03 8D 71 95 AD 70 9308- B1 26 09 78 91 26 C8 A9 


9200- A9 40 8D F6 03 A9 92 8D 
9208- F7 03 A9 00 85 73 A9 92 

9210- 85 74 AD 00 &F C9 4C FO 

9218- 00 2C 83 CO 2C 83 CO AD 

9220- FF FF C9 FA DO 11 A9 70 SI L APPLICATION 
9228- 8D 75 95 2C 81 CO A9 FF SORT DE LA FENETRE 
9230- 85 73 A9 6F 85 74 60 A9 ALORS ; À LA 

9238- EO 8D 75 95 2C 81 CO 60 FERMETURE DE CETTE 
9240- AO 00 20 B7 00 D9 66 95 DERNIERE ; TOUT CE 
9248- DO 55 20 Bl 00 C8 CO 04 QUI À ETE MODIFIE 
9250- DO F3 20 F5 E6 EO CO BO EN DEHORS DE LA 
9258- 62 8E 62 95 20 F5 E6 EO FENETRE RESTERÀ - 
9260- CO BO 58 8E 63 95 20 B1 TEL QUEL. 

9268- 00 20 67 DD 20 52 E7 20 

9270- E8 94 E0 28 BO 45 8E 64 

9278- 95 20 B1 00 20 67 DD 20 

9280- 52 E7 20 EB 94 EO 28 B0 

9288- 32 8E 65 95 20 OD 95 20 
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9310- 7F 91 26 C8 CC 73 95 DO 9530- 95 AE 63 95 8D 63 95 8 1180- 6E l1E 16 3F 17 OD OD DE 


9318- F8 B1 26 09 OF 91 26 EE 9538- 62 95 4C 15 95 AD 62 95 1188- 07 00 20 8D 3A 3F 77 31 
9320- 74 95 AD 74 95 A2 00 AO 9540- 18 69 08 8D 63 95 4C 20 1190- 05 00 89 F6 04 00 3F 4C 
9328- 00 20 11 F4 AC 72 95 B1 9548- 95 AD 64 95 AE 65 95 8D 1198- 11 35 00 12 05 00 OC 0C 
9330- 26 29 1F 09 1C 91 26 C8 9550- 65 95 8E 64 95 4C 20 95 11A0- D6 DA JE 06 00 OC 25 1C 
9338- A9 00 91 26 CB CC 73 95 9558- AD 64 95 18 69 02 8D 65 11A8- 3F 17 36 2E 1E 0E 2D 0C 
9340- DO F8 B1 26 29 F8 09 1C 9560- 95 60 00 00 00 00 4F 55 11B0- 24 07 00 24 8C 96 31 17 
9348- 91 26 EE 74 95 AD 74 95 9568- 56 52 45 46 45 52 4D 45 11B8- 2D 04 00 65 E4 3F 17 95 
9350- A2 00 AO 00 20 11 F4 AC 9570- 00 00 00 00 00 00 11C0- BA 2E 2D 25 00 25 OC 3C 
9358- 72 95 B1 26 29 OF 09 0E im 11C8- 3F B7 92 15 2D OC 24 00 
9360- 91 26 C8 A9 00 91 26 C8 11D0- 3A 27 OC 0C 0C 36 36 F5 
9368- CC 73 95 DO F8 B1l 26 29 é L L 11D8- 3E 00 38 27 2C 2D F5 AA 
9370- FO 09 38 91 26 EE 74 95 Récapitulation 11E0- 36 1E 3F 1C 04 00 AD F6 
9378- AD 74 95 A2 00 AO 00 20 ‘HGRECR LIB’ 11E8- 3F 1C 24 25 OC OC 35 00 
9380- 11 F4 AC 72 95 A9 07 91 e 11F0- 0C OC 3C 3F 77 92 36 05 
9388- 26 C8 A9 00 91 26 C8 CC 11F8- 00 E7 64 2D 15 BE 15 F6 
9390- 73 95 DO F8 A9 70 91 26 Après avoir saisi ce code sous 1200- 3F 1C 2C 00 E7 64 2D 15 
9398- AE 74 95 EC 71 95 DO D5 moniteur, vous le sauvegarderez par 1208- 36 77 1E 17 3F 04 OO 08 
93A0- EE 74 95 AD 74 95 A2 00 BSAVE HGRECR.L!B,A$1000.L$398 1210- 16 06 00 08 16 BE 05 00 
93A8- A0 00 20 11 F4 AC 72 95 1218- 91 E2 1C 1C OC OC OC 06 
93B0- B1 26 29 OF 09 0E 91 26 1000- 20 58 FF 32 CA CA 9A 18 .1220- 00 38 67 89 B5 3F 3F 04 
93B8- C8 A9 00 91 26 C8 CC 73 1018- 68 69 A6 85 CE 68 69 00 1228- 00 93 62 OC OC 1C IC IC 
93C0- 95 DO F8 B1 26 29 F0 09 1010- 85 CF A5 =4 48 A5 E7 46 1230- 06 00 OC OC 1C 3F 17 95 
93C8- 38 91 26 EE 74 95 AD 74 1018- 20 BE LE 20 =3 DF 20 6C 1238- OA 16 05 00 30 2E 2C 24 
93D0- 95 A2 00 A0 00 20 11 F4 1020- DD AD 00 1 83 85 08 c& 1240- 1C 3F 17 36 36 0E 2D 25 
93D8- AC 72 95 B1 26 29 1F 09 1028- Bl 83 85 06 C8 B1 83 85 1248- 00 3A 37 6E 09 24 67 E4 
93E0- 1C 91 26 C8 A9 00 91 26 1030- 07 20 3= £L= 20 05 E1 A5 1250- 1C lE 1E 2E 00 3F 24 2C 
93E8- C8 CC 73 95 DO F8 B1 26 1038- A1 85 £0 A5 AO 85 El 20 1258- 2D 15 BE 0E BE 3F 27 2C 
93F0- 29 F8 09 1C 91 26 EE 74 1040- F5 E6 86 =2 A9 01 85 E7 1260- 00 89 F2 3F 1C 24 24 OC 
93F8- 95 AD 74 95 A2 00 AO 00 1048- AO 00 98 48 B1 06 48 A9 1268- 2D 15 06 00 09 36 LE 3F 
9400- 20 11 F4 AC 72 95 BI 26 1050- 00 85 E4 Z9 :F 20 58 FF 1270- 27 24 24 2C 2D 15 3E 00 
9408- 09 78 91 26 C8 A9 7F 91 1058- 50 26 A9 7= 85 E4 68 38 1278- 39 B7 3A 24 24 24 2D 2D 
9410- 26 C8 CC 73 95 DO F8 B1 1060- E9 1F 20 58 57 50 19 18 1280- 96 92 3F 04 00 39 B7 1A 
9418- 26 09 OF 91 26 EE 74 95 1068- AS EO 69 06 85 £0 DO 02 1288- 24 24 24 2D 2D 06 00 11 
9420- AD 74 95 A2 00 AO 00 20 1070- E6 El 68 48 CB C4 08 DO 1290- 35 3E 3F 1C 24 24 OC 2D 
9428- 11 F4 AC 72 95 BI 26 09 1078- D1 68 85 E7 68 85 E4 60 1298- 35 00 2B 2D 24 FC 1B 36 
9430- 70 91 26 C8 A9 7F 91 26 1080- BA CA CA 92 CA A8 81 CE 12A0- 36 36 4D 21 24 00 52 3A 
9438- C8 CC 73 95 DO F8 B1l 26 1088- 18 65 CE 48 C& BI CE 65 12A8- 67 24 24 3C 2D 06 00 9B 
9440- 09 07 91 26 60 2C 81 CO 109C- CF 48 A6 0 Æ4 21 AS E2 12B0- 72 2D OC 24 24 3C 00 73 
9448- AD 70 95 8D 74 95 £E 71 1098- 20 11 F4 68 AB 68 AÀ A9 12B8- 0E 15 DF 23 24 24 6C 09 
9450- 95 AD 74 95 A2 00 A0 00 10A0- 00 20 O1 F6 2C 58 FF 60 12C0- 1E 1E 06 00 89 12 3F 3F 
9458- 20 11 F4 A5 26 85 06 AS 1048- 3F 00 80 00 84 00 8A 00 12C8- 24 24 24 05 00 EO IC 36 
9460- 27 85 07 AS E6 48 AD 75 10B0- 90 00 9D 00 AA 00 B5 00 12D0- 36 36 4D 21 24 24 BC 06 
9468- 95 85 E6 AD 74 95 A2 00 10B8- C1 00 C5 00 CD 00 D5 00 1208- 00 0E 56 24 24 24 DF 33 
9470- AO 00 20 11 F4 68 85 E6 10C0- E2 00 EA 00 EE 00 F3 00 12E0- 2E 1E 36 2E 00 92 E7 24 
9478- AC 72 95 88 CB B1 06 91 10C8- F6 00 FO 00 O0B O1 13 01 12E8- 24 OC 2D 15 36 36 17 05 
9480- 26 CC 73 95 DO F6 EE 74 10D0- 1D 01 28 01 32 01 3E O1 12F0- 00 65 3C 38 3F 36 2E 1E 
9488- 95 AE 74 95 EC 71 95 DO 10D8- 48 01 51 01 5C 01 67 01 12F8- 36 05 00 AA 15 1F 3F 20 
9490- CO 60 AD 70 95 8D 74 95 10E0- 6B 01 70 01 79 O1 81 01 1300- 24 64 2D 15 36 36 00 77 
9498- EE 71 95 2C 81 CO AD 74 10E8- 8A 01 94 01 Al O1 AD O1 1308- 15 15 DF 23 24 24 2C 2D 
94A0- 95 A2 00 A0 00 20 11 F4 10F0- B9 01 C4 O1 DO 01 DD 01 1310- 15 BE 06 00 E? 64 2D 15 
94A8- A5 26 685 06 A5 27 85 07 10F8- E7 01 F2 01 FE 01 O7 02 1318- 97 15 F6 3F 1C 04 00 24 
94B0- AS E6 48 AD 75 95 85 E6 1100- OF 02 1C 02 25 02 31 02 1320- 1F 28 2D F5 92 33 2E 00 
94B8- AD 74 95 A2 00 AO 00 20 1108- 3D 02 49 02 53 92 5F 02 1328- 92 E7 24 24 6C 09 36 36 
94C0- 11 F4 68 85 E6 AC 72 95 1110- 6C 02 77 02 80 02 8B O2 1330- BE 05 00 92 1C 1C 24 24 
94C8- 88 C8 2C 83 CO 2C 83 CO 1118- 96 O2 A2 02 AE 02 B7 02 1338- 4D 31 36 BE 06 00 F6 1E£ 
94D0- B1 26 91 06 CC 73 95 DO 1120- C2 02 CA 02 D1 02 D9 O2 1340- 24 24 24 4D 31 36 BE 35 
94D8- FO EË 74 95 AE 74 95 EC 1128- 5B 49 02 00 52 22 20 24 1348- 07 00 OC 0C FC 1B 76 16 
94E0- 71 95 DO B7 2C 81 CO 60 1130- 2C 00 08 24 1F 36 06 00 1350- 17 6E 09 E4 04 00 1C 1C 
94E8- A9 00 A6 50 A4 51 20 11 1138- 3A 67 3C OC 6C BE 2D 1E 1358- 6C 09 F6 D6 36 05 00 OC 
94F0- F4 A6 E5 60 AD 62 95 8D 1140- 2E lE FE 2C 00 E7 OC 25 1360- OC 3C 3F 77 92 17 2E 2D 
94F8- 70 95 AD 63 95 8D 71 95 1148- 15 F5 AB 15 1F 15 3F 7? 1368- 25 00 24 2C BS D2 33 2£ 
9500- AD 64 95 8D 72 95 AD 65 1150- 29 00 OC OC DC 3B 2E 96 1370- 2D 00 1C 1C 56 4A 0E 06 
9508- 95 8D 73 95 60 AD 63 95 1158- 17 4D 2E 24 00 60 1C &F 1378- 00 24 3C B7 52 31 3E 3F 
9510- CD 62 95 90 19 AD 63 95 1160- AE 17 76 65 1C OD 16 07 1380- 00 25 3F 36 2D 25 24 3F 
9518- 38 ED 62 95 C9 08 90 1D 1168- 00 08 24 05 00 92 1C 1C 1388- 3F 36 36 2D 2D 25 24 24 
9520- AD 65 95 38 ER 64 95 30 1170- 24 QC OC 06 00 92 OC 0C 1390- 3F 3F 3F 36 36 36 2D 2D 
9528- 20 C9 02 90 28 60 AD 62 1178- 24 1C 1C 06 00 3C 1C 4C 1398- 2D 05 00 
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Des disquettes sans DOS... 


Des disquettes qui se présentent 





Des disquettes en 35 ou 36 pistes … 


.… BOOTDAT A 


Dominique Ottello 


Suite aux diverses interventions 
de lecteurs concemant l'utilisation 
de la 36ème piste (voir par 
exemple le numéro 23 de Pom's), 
voici un petit utilitaire qui permet 
d'automatiser le processus 
d'agrandissement d'une disquette 


Il fonctionne avec le DOS 3.3 
(48Ko) standard, ainsi qu'avec le 
Diversi-DOS. Le source est en 
Big Mac et contient, aux lignes 
565 à 569, le texte du message à 


afficher lors du boot. Ce texte 
peut être remplacé par celui de 
votre choix, dans la limite de 256 
octets entre les étiquettes TOSO et 
FIN. 


G 


DOS 3.3. : 
Comment faire ? 
Il permet en particulier: 


* de formater une disquette sur 
35 pistes ; 

° de formater une disquette sur 
36 pistes ; 

e de libérer les pistes 1 et 2, en 
effaçant le DOS (sans effacer 
les fichiers éventuellement 
présents) ; 

° d'inscrire un message d'aver- 
tissement sur la piste O, secteur habituellement par le DOS : 

0, affiché lors du boot de cette Initialisation 35 pistes et opérations t et 
disquette. 2 
idem 3 mais en 36 pistes : 


Après avoir fait “BRUN BOOTDATA" cette liste de CALLS apparaît : 


Opération Lecteur 1 Lecteur 2 


Message lors du boot sur la disquette de 
données : 
Libération des pistes 1 & 2 occupées 


768 771 


774 777 


783 
789 


780 
786 


Ainsi, pour créer une disquette de DATAs dans le lecteur 2, sur 36 
pistes, vous ferez CALL 789. Pour libérer les pistes 1 & 2 puis inscrire 
un message en cas de boot, vous ferez CALL774 puis CALL 768 si 
l'opération concerne le lecteur 1. 


Son utilisation est ès simple : 
BRUN BOOTDATA 

affiche une suite de valeurs de 
CALL, qu'il suffit de lancer pour 
exécuter l'une des quatre 


Hoi Ldus Attention : disquettes DOS 3.3 seulement... 








MOTOROFF EQU S$SCO88 sArrét moteur 
Source ‘BOOTDATA.S"’ DISKO1 EQU SCO8A Lecteur 1 
Assembleur Merlin DISK02 EQU ScO088 -Lecteur ? 
064 EQU  SC08D cUtilisé pour recherche 
O7L EQU SCO8E sdisquette protégée 
ORG $3000 Pi * 
* * 
CTOSODI EQU 5300 /CALL en 768 REGI EQU 519 -Séuvegarde 
CTOSOD2 EQU S$S303 -CALL en 771 REG2 EQU $1A isseiars fanssiane 
CP1P2Di EQU S306 :CALL en 774 FLAGERR EQU SIC Drapeau erreur 00 pas erreur 
CPIP2D2 EQU S309 ;CALL en 777 * 
CIN35D1 EQU S30C ,-CALL en 780 * 
CIN3SD2 EQU S30F ;CALL en 783 LELELELEL EE SEE EE SES SELELESELEEELLEEX] 
CIN36DJ EQU 5312 ;CALL en 786 * IMPLANTATION DES CALL * 
CIN36D2 Equ $315 ;CALL en 789 Séseseseseseseeseseseseeseeesesesese 
* LA 
RWTS EQU $S3D9 ;Roïtine DOS écriture secteur 0 
COUT EQU  SFDED sRoutine sortie caractère LDA #$4C 
HOME EQU SFC58 -Routine effacement écran STA CTOSOD1I 
” STA CTOSOD2 
CATALOG EQU SAES9E sRoiutine DOS contruction de STA CP1P2D1 
* la piste $11 {catalog et VTOC) STA CPIP2D2 
MOTORON EQU SC089 ‘Mise en route moteur STA CIN35D1 
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STA CIN35D2 Jrasittossres So Ré 762 
STA CIN36D1 inner: sé so 780 
STA CIN36D2 Fr ensessse Go Ge, 289 


LDA  4ITOSODI 
STA CTOSOD1+i 
LDA  #>ITOSOD1I 
STA CTOSODI+2 
LDA  #ITOSOD2 
STA CTOSOD2+1 
LDA  4>ITOSOD2 
STA CTOSOD2+2 
LDA 4P1P2D1 
STA CP1P2D1+#1 
LDA 4>PIP2DI 
STA CP1P2D1+2 
LDA #P1P2D2 
STA CP1P2D2+] 
LDA #>P1P2D2 
STA CP1P2D2+2 
LDA  #IN35D1 
STA CIN35D1+1 
LOA  4>IN35D1 
STA CIN35D1+2 
LDA #IN35D2 
STA CIN35D2+1 
LDA  4>IW35D2 
STA CIN35D2+2 
LDA #IN36D1 
STA CIN36D1+#1 
ZDA #>IN36D1 
STA CIN36D1+2 
LDA 4#IN36D2 
STA CIN36D2+1 
LDA 4>IN36D2 
STA CIN36D2+2 
LL 
LA 
LELLLLELLLLERE EE EEE LELLLELELLLEEEE EX] 
* MESSAGES DES CALL , 
tés iétét 


L 


JSR SFEB84 sMode NORNAL 

JSR SFB2F sMode TEXT 

JSR S$SFE89 /Clävier en entrée 
JSR SFE93 ;sVidéo en sortie 
JSR HOME 


LOA  4LISTCALL 
STA REGI 
LOA #>LISTCALL 
STA REG2 
LDY #$00 
BCLCALL LDA (REGI),Y 
BEQ IREG 
CMP  4#$FF 
BEQ RETCALL 
JSR COUT 
IREG INC REGI 
BNE CALLI 
INC REG2 
CALLI1 BNE BCLCALL 
RETCALL LDA #$10 
STA S22 ‘Fenetre texte haute 


LISTCALL ASC " v 
INV "LISTE DES CALL"8D8D 


PO ASC ‘Ecriture message piste O0 secteur 0"8D00 


ASC “Lecteur 1:768 * Lecteur 2:771"8D8D 
P12 ASC "Libération piste 1 et 2”"8D00 

ASC "Lecteur 1:774 *% Lecteur 2:777"8D8D 
135 ASC “Initlaiisation 35 pistes"8D00 

ASC “Lecteur 1:780 * Lecteur 2:783"8D8D 
136 ASC “Initlalisation 36 pistes"8D00 

ASC "Lecteur 1:786 * Lecteur 2: 789"808D 


INV “TAPER CALL XXX" 


ASC  -------- +"8D8D8D80FF 
VTO ASC "Construction CATALOG et VTOC"“8D00 
P36 ASC “Libération piste 35"8D00 
CAT ASC "Mise à jour VTOC"8D00 


LLEELELLLLLER LENS LLLLLLLLELEE EE LE) 
+ ECRITURE PISTE O SECTEUR O  * 
LLLLLLLLLELELLEE EE LLELELELESLLLEE) 
* 


ITOSODI LDA #S01 
STA LECTEUR 
B8NE ITOSOA 
ITOSOD2 LRA #$502 
STA LECTEUR 
ITOSOA JSR PROTEC 
ITOS0 LDA 4#$00 
STA JLAGERR -Mise à zéro ERREUR 
LDA #P0 
STA REGI 
LDA  #>PO 
STA REG2 
JSR MESSAGE 


‘Lecteur 1 


sLecteur 2 


LDY #$00 ;Chargement Tampon IOB pour BOOT 


BCLO LDA TOSO,Y 
STA TAMPON, Y 


-.CMP 45FF 
BNE BCLO 
LDA 4500 ;Numéro volume 
STA VOLUME 
LDA #$00 ;Numéro piste 
STA PISTE 
LDA 4500 sNüméro secteur 
STA SECTEUR 
LDA #$02 :Commande écriture 
STA COMMANDE 
JSR RHDISK 


CELELLLLLLLLLLLLLLLLILLIIL LILI 
#* LIBERATION PISTES 1 ET 2 " 
CCLLLLLLEZLLLLLLLLLIZIILLIL IL ILT 
* 
* 
P1P2D1 IDA #$01 

STA LECTEUR 

BNE P1P2A 
P1P2D2 LDA #502 

STA LECTEUR 
P1P2A JSR PROTEC 


P1P2 LDA #$00 
STA VOLUME 
LpDA #$1i ‘Piste $11 (dec:17) Catalogue 
STA PISTE 
LOA #$00 sSecteur O0 VTOC 
STA SECTEUR 
LDA #$01 ; Commande lecture 
STA COMMANDE 
LDA 4P12 
STA REGI 
£LDA 4#>P12 
STA REG2 
JSR MESSAGE 
JSR RWDISK 
LDA 45FF sCorrespond à 8 secteurs libres 
STA TAMPON+S3C ;Piste 1 secteurs F à 8 
STA TAMPON+S3D Piste I ..,..... 7 à O0 
STA TAMPON+S40 ;Piste 2 ,....... F à 8 
STA TAMPON+S41 ;Piste 2 ........ 7 à 0 
LDA #$02 Commande écriture 


STA  COM#LANDE 
JSR RWDISK 
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RTS 


* 
* 
RRRRRRRRRÉRRRÉARRÉRR RAR R RÉ RRR RÉ 
#* INITIALISATION NORMALE (35) * 
thhhhitétététaatétatétatétaéééés 
* 


à 


IN35D1 #$01 
LECTEUR 
IN35A 
#$02 
LECTEUR 
PROTEC 
#135 
REGI 
#>135 
REG2 
MESSAGE 
#$04 
COMMANDE 
#$00 
VOLUME 
RWDISK 
#560 sInplantation d'un code RTS 

* pour éviter l'écriture du DOS 

* sur la disquette lors de l'INIT 
SAEFF 

LECTEUR sInpglantation numéro lecteur 

* dèns la routine INIT du DOS 
SB5F8 
évro 
REGI 
#>VTO 
REG2 
MESSAGE 
CATALOG 
#520 
SAEFF 
ITOSO 
FLAGERR 
#SFF 
LP1 


IN35D2 


IN35A 


IN35 ; Commande FORMAT 


‘Restauration modif DOS 


Message piste 0 secteur 0 


“Libération pistes 1 et 2 


LP1 P1p2 


tatttééééééééthatadééééaéééééaté sé 
* INITIALISATION 36 PISTES * 
thhatéhéétééééététééééééééééétéhst 
* 

* 
IN36D1 #501 
LECTEUR 
IN36 
#502 
LECTEUR 
PROTEC 
#136 
REGI 
45136 
REG2 
MESSAGE 
#524 
SBEFE 
IN35 
#523 
SBEFE 
FLAGERR 
#SFF 
PIS23 


IN36D2 


IN36 


sAutorise le DOS pour 36 pistes 
sInitialisation 


sRemet DOS à valeur initiale 


#p36 
REGI 
#>P36 


PIS23 


REG2 
MESSAGE 
#CAT 
REGI 
#>CAT 
REG2 
MESSAGE 
#511 
PISTE 
#500 
SECTEUR 
#$01 
COMMANDE 
RADISK 
#SEr 
TAMPON+$C4 
TAMPON+$CS 
4524 
TAMPON+$34 
#502 
COMMANDE 
RNDISK 


* 


* 





sPiste 17 Catalogue 
Secteur O0 VTOC 


Ordre de lecture 


;8 secteurs libres 
sPiste 36 secteurs F à 8 
7 à 0 


dons nn uns 


sIndique $24 piste en VTOC 
‘Ordre écriture 


tétérétéatttééttétététééététététt 


* LECTURE OU ECRITURE DES 


* SECTEURS DU DISQUE 


* 


tattététététtéatététéééétététéét 


RWDISK LDA  #S00 
STA ERREUR 
LDA #$FF 
STA FLAGERR 
LDA #>1I0B 
LDY #<I0B 
UJUSR RATS 
LDA #$00 
STA $48 
LDY 4#$00 


* 


* 


‘Mise à zéro des erreurs 


«Mise à FF du drapeau erreur 


sPartie haute adresse 103 


Partie basse css 


‘Remise à zéro location $48 
‘servant au moniteur 


ARARRRRRRRRÉRRARRARRRARÉARA RAR RÉ ÉRÉ 


* CONTROLE DES ERREURS 


* 


tétététéitéééététitététééétéééét 


* 
* 
ERREUR 
#508 
PROTECT 
#FORM 
REG1 
#>FORM 
REG2 
MESSAGE 
#510 
VOLU 
#PROT 
REGI 
#>PROT 
REG2 
MESSAGE 
#520 
DRIVE 
#vOL 
REGI 
#>voL 
REG2 
MESSAGE 
#$40 
LECTU 
#DRIV 
REGI1 
#>DRIV 
REG2 


PROTECT 


VOLU 


DRIVE 


sGestion des erreurs 
‘Erreur format ? 


«Chargement adresse message 


‘Erreur protection ? 


sErreur volume ? 


sErreur 1/0 ? 


EEE eZZZEZLZ à 
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LECTU 


OXMESS 


MESSAGE 
MESSA 


BNE MESSAGE 


CMP #580 Erreur lecture ? 
BNE  OKMESS ‘Pas d'erreür 
LDA #LECT 
STA REGI 
LDA #>LECT 
STA REG? 
BNE MESSAGE 
LDA 4#$00 Remise à zéro drapeau erreur 
STA FLAGERR 
RTS 
LDY #500 
LDA (REGI),Y ‘Affichage du message 
BEQ. RETO 
INY 
UJSR COUT 
JUMP  MESSA 
RTS 
Messages 


INV ERREUR D'INITIALISATION"8/78D00 
INV “DISQ@UETTE PROTEGEE"878D00 

INV “ERREUR NUMERO DE VOLUME"”"878D00 
INV "ERREUR LECTEUR {I/0 ERROR) "878D00 
INV “ERREUR DE LECTURE"878D00 


RRRARRRRR RAR ÉRRRRÉRRRRÉÉRARRRARÉÉÉ 


* ROUTINE DE TEST DISQUETTE F 
* PROTEGEE OÙ NON ET DEMANDE = 


* POUR ENLEVER PROTECTION (4 
ÉPFELELILIZLLIIILIIIIIII II 11111) 
* 
* 
PROTEC JSR HOME 
LDX #560 sSlot 6 
LDA LECTEUR 
CMP 4#502 


DRIVE2 
PRB 


PRBO 
PRB1 


PROTIN 


BCLPR 


RETPROT 
BCLPRI 


RETENL 


* 


ENLEVER 


# 


BEQ DRIVE2 
LDA DISKO1,Xx 
JMP  PRB 

LDA DISK0O2,X 


LDA MOTORON,X ;Mise en route moteur 


LDY  #$FF' “Délai 

LOX #SFF 

DEX 

BNE PRBi 

DEY 

BNE  PRBO 

LDX  #560 sSiot € 

LDA 06H,X “Recherche protection 
LDA O7L,X 


BMI PROTIN 
LDA MOTOROFF,X ;Arret moteur 


RTS 

LDA MOTOROFYE,X ;Arret moteur 
LDY #500 

LDA PROT, YŸY 
Ch  #S00 

BEQ RETPROT 
USR COUT 

INY 

BNE  BCLPR 

LDY  #S00 

LDA ENLEVER, Y 
CMP #$00 

BEQ RETENL 
JSR COUT 

INY 

BNE  BCLPRI 
JSR SFDOC 


JUMP  PROTEC 


ASC “ENLEVER PROTECTION PUIS <RETURN>"878D00 


* 
+ 


tététéétéééééiéétéitétéseneeemett 


* TOUT CE QUI EST ENTRE ‘TOS0" * 
* ET "FIN" SERA ECRIT SUR LA gi 
* PISTE O0 SECTEUR 0 c] 


ftééééééééééééiéééésnééséséneetés 


TOSO HEX 01 sPour accepter ce qui suit 
STA MOTOROFF,X ;Arret moteur lecteur 


LDA S2B ;Chargement numéro slot boot 
LSR 
LSR 
LSR 
ZSR 
ORA  #SC0 
STA S3F 
LDA #500 
STA S3E 
CLD 
JSR SFE84 ; Vidéo NORMAL 
JSR SFB2F Mode TEXT 
JSR SFE89 ;Clavier en entrée 
USR SFE93 ;Vidéo en sortie 
JSR HOME 
LDY #500 
* 
* Calcul d'adresse pour tenir 
# compte de l'adresse $800 au 
* BOOT de Ia disquette. 
LAB1 LDA TEXTE-TOS0+S5800,Y 
* 
CMP  #$00 
BEQ LAB2 
USR COCT 
INY 
BNE  LAB1 
LAB2 JSR SFDOC sAttente touche clavier 
JMP  {S003E)} 


tététététénesétentétététététééés 


* Message à afficher au BOOT Æ 


tétéétéétessiessémntétrntatén nt st 


TEXTE ASC "he +°8D 
ASC ”! DISQUETTE DE DONNEES SANS DOS !°8D 
ASC "! METTRE LA DISQUETTE PROGRAMME 1°8D 


ASG' ”! APPUYER SUR <RETURN> 1782 

ASC Ph +"8787878D 
* 

HEX 00 ‘Fin de message 
* 
FIN HEX FF ‘Fin de chargement total 


thtéttététéattététééétttiéiénsstés 


#* PARAMETRES POUR RWTS ({IOB) La 
* Input Output control Block Le 


tététététététitététeesenmsrenets 
* 


* 


IOB HEX 0160 
LECTEUR HEX 00 
VOLUME HEX 00 
PISTE HEX 00 
SECTEUR HEX 00 

DA CARONIT 


;Table IOB 

sNumére lecteur 

sNuméro volume 

;sNuméro piste 

-Numéro secteur 

Adresse caract. unité aisque 


DA TAMPON ‘Adresse mémoire tampon secteur 
HEX 0000 

CO#MANDE HEX 00 sCode de commande 

LE :$00 positionnement 

# -$01 lecture 

“ ;:S02 écriture 
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* 
ERREUR 


* 


;$04 formatage 

Code erreur en retour 
:$08 erreur format 
:$10 protégé écriture 
:$20 erreur volume 
/$40 erreur lecteur 
:$80 erreur lecture 
;Volume précédent 
sinterface précédente 
sLecteur précédent 


HEX 00 


* 
* 
= 
* 
00 


60 
01 


HEX 
HEX 
REX 


* 
* 
MR A ta tt # 


* CARACTERISTIQUES UNITE DE 


* 





* Device Characteristics Table * 
ététééétéiaaitiitéiiiiéééstéééééé 


* 
* 


CARUNIT HEX OOOIEFD8 


* 


sCaractéristiques unité disque 


étéértéééétéééééééééésééértééééét 


* DEBUT DU TAMPON DE 256 OCTETS* 
* correspondant au contenu d'un* 
* secteur lu ou à ce qui serà * 


* écrit sur un secteur 
tittsiitééééiéééééééééééitéééthsé 


# 


* 


#* DISCUETTE (DCT) * TAMPON DS 256 ;Début du tampon {256 octets) 
END 
Récapitulation 
nl , 3158- B8 BO AO AA AO CC ES E3 32E8- 26 32 A5 1C C9 FF DO 01 
BOOTDA TA 3160- F4 E5 F5 F2 A0 B2 BA B7 32F0- 60 20 69 32 60 A9 O1 8D 
3168- B8 B3 8D 8D C9 EE E9 F4 32F8- AF 35 DO 05 A9 02 8D AF 
Après avoir saisi ce code sous 3170- E9 El EC E9 F3 El F4 E9 3300- 35 20 4D 34 A9 6C 85 19 
moniteur, vous Île sauvegarderez par 3178- EF EE A0 B3 B6 AO FO E9 3308- A9 31 85 1A 20 C5 33 A9 
BSAVE BOOTDAT A, A$3000,L$6C2 3180- F3 F4 ES F3 8D 00 © E5 3310- 24 8D FE BE 20 BC 32 A9 
3188- E3 F4 E5 F5 F2 AO B1 BA 3318- 23 8D FE BE AS 1C C9 FF 
3000- A9 4C 8D 00 03 8D 03 03 3190- B7 B8 B6 AO AA A0 CC ES 3320- DO 01 60 A9 FO 85 19 A9 
3008- 8D 06 03 8D 09 03 8D OC 3198- E3 F4 ES F5 F2 AO B2 BA 3328- 31 85 1A 20 C5 33 A9 05 
3010- 03 8D OF 03 8D 12 03 8D 31A0- B7 B8 B9 8D 8D AB AD AD 3330- 85 19 A9 32 85 1A 20 C5 
3018- 15 03 A9 17 8D O1 03 A9 31A8- AD AD AD AD AD AD AD AD 3338- 33 A9 11 8D Bl 35 A9 00 
3020- 32 8D 02 03 A9 1E 8D 04 31B0- AD AO 14 01 10 05 12 20 3340- 8D B2 35 A9 01 8D B9 35 
3028- 03 A9 32 8D 05 03 A9 5A 31B8- 03 01 OC OC 20 18 18 18 3348- 20 61 33 A9 FF 8D 86 36 
3030- 8D 07 03 A9 32 8D 08 03 31C0- AO AD AD AD AD AD AD AD 3350- 8D 87 36 A9 24 8D F6 35 
3038- A9 61 8D OA 03 A9 32 8D 31C8- AD AD AD AD AB 8D 8D 8D 3358- A9 02 8D B9 35 20 61 33 
3040- 0B 03 A9 A2 8D OD 03 A9 31D0- 8D FF C3EF EE F3 F4 F2 3360- 60 A9 00 8D BA 35 À9 FF 
3048- 32 8D 0E 03 A9 A9 8D 10 31D8- F5 E3 F4 E9 EF EE AO C3 3368- 85 1C A9 35 AO AD 20 D3 
3050- 03 A9 32 8D 11 03 A9 F5 31E0- C1 D4 C1 CC CF C7 AO ES 3370- 03 A9 00 85 48 AO 00 AD 
3058 8D 13 03 A9 32 8D 14 03 31E8- F4 AO D6 D4 CF C3 8D 00 3378- BA 35 C9 08 DO OA A9 D3 
3060- A9 FC 8D 16 03 A9 32 8D 31F0- CC E9 E2 FB F2 El F4 E9 3380- 85 19 A9 33 85 IA DO 3D 
3068- 17 03 20 84 FE 20 2F FB 31F8- EF EE AO FO E9 F3 F4 ES 3388- C9 10 DO OA A9 ED 85 19 
3070- 20 89 FE 20 93 FE 20 58 3200- A0 B3 B6 8D 00 CD E9 F3 3390- A9 33 85 1A DO 2F C9 20 
3078- FC A9 9B 85 19 A9 30 85 3208- ES AO CO AO EA EF F5 F2 3398- DO OA A9 02 85 19 A9 34 
3080- 1A AO 00 B1 19 FO 07 C9 3210- AO D6 D4 CF C3 8D 00 A9 33A0- 85 1A DO 21 C9 40 DO OA 
3088- FF FO O0B 20 ED FD E6 19 3218- 01 8D AF 35 DO 05 A9 O2 33A8- A9 1C 85 19 A9 34 85 1A 
3090- DO 02 E6 1A DO ED A9 10 3220- 8D AF 35 20 4D 34 A9 00 33B0- DO 13 C9 80 DO OA A9 39 
3098- 85 22 60 AO AO AO AO AO 3228- 85 1C A9 B8 85 19 A9 30 33B8- 85 19 A9 34 85 1A DO 05 
30A0- AO AO AO A0 AO AO AO AO 3230- 85 1A 20 C5 33 AO 00 B9 33C0- A9 00 85 1C 60 AO 00 B1 
30A8- OC 09 13 14 05 20 04 05 3238- C7 34 99 C2 35 C8 C9 FF 33C8- 19 FO 07 C8 20 ED FD 4C 
30B0- 13 20 03 01 OC OC 8D 8D 3240- DO F5 A9 00 8D BO 35 A9 39D0= C7-3831 60 05° 12 1205: 45 
30B8- C5 E3 F2 E9 F4 F5 F2 E5 3248- 00 8D Bi 35 A9 00 8D B2 33D8- 12 20 04 27 09 OE 09 14 
30C0- A0 ED E5 F3 F3 El E7 E5 3250- 35 A9 02 8D B9 35 20 61 33E0- 09 01 OC 09 13 01 14 09 
30C8- A0 FO E9 F3 F4 ES AO BO 3258- 33 60 A9 01 8D AF 35 DO 33E8- OF OE 87 8D 00 04 09 13 
30D0- A0 F3 E5 E3 F4 ES F5 F2 3260- 05 A9 02 8D AF 35 20 4D 33F0- 11 15 05 14 14 05 20 10 
30D8- AO BO 8D 00 © E5 E3 F4 3268- 34 A9 00 8D BO 35 A9 11 33F8- 12 0F 14 05 07 05 05 87 
30E0- ES F5 F2 AO Bl BA B7 B6 3270- 8D B1 35 A9 00 8D B2 35 3400- 8D 00 05 12 12 05 15 12 
30E8- B8 AO AA A0 CC E5 E3 F4 3278- A9 01 8D B9 35 A9 FB 85 3408- 20 0E 15 OD 05 12 OF 20 
30F0- ES F5 F2 AO B2 BA B7 B7 3280- 19 A9 30 85 1A 20 C5 33 3410- 04 05 20 16 OF OC 15 OD 
30F8- B1 8D 8D CC E9 E2 FB F2 3288- 20 61 33 A9 FF 8D FE 35 3418- 05 87 8D 00 05 12 12 05 
3100- El F4 E9 EF EE AO FO E9 3290- 8D FF 35 8D 02 36 8D 03 3420- 15 12 20 OC 05 03 14 05 
3108- F3 F4 E5 A0 Bl AO ES F4 3298- 36 A9 02 8D B9 35 20 61 3428- 15 12 20 28 09 2F OF 20 
3110- A0 B2 8D 00 CC E5 E3 F4 32A0- 33 60 A9 01 8D AF 35 DO 3430- 05 12 12 OF 12 29 87 8D 
3118- ES F5 F2 AO Bl BA B7 B7 32A8- 05 A9 02 8D AF 35 20 4D 3438- 00 05 12 12 05 15 12 20 
3120- B4 AO AA A0 CC ES E3 F4 32B0- 34 A9 33 85 19 A9 31 85 3440- 04 05 20 OC 05 03 14 15 
3128- E5 F5 F2 A0 B2 BA B7 B7 32B8- 1A 20 C5 33 A9 04 8D B9 3448- 12 05 87 8D 00 20 58 FC 
3130- B7 8D 8D C9 EE E9 F4 E9 32C0- 35 A9 00 8D BO 35 20 61 3450- A2 60 AD AF 35 C9 02 F0 
3138- El EC E9 F3 El F4 E9 EF 32C8- 33 A9 60 8D FF AE AD AF 3458- 06 BD 8A CO 4C 62 34 BD 
3140- EE A0 B3 B5 A0 FO E9 F3 32D0- 35 8D F8 B5 A9 D2 85 19 3460- 8B CO BD 89 CO AO FF A2 
3148- F4 ES F3 8D 00 CC ES E3 32D8- A9 31 85 1A 20 CS 33 20 3468- FF CA DO FD 88 DO F8 A2 
3150- F4 E5 F5 F2 A0 Bl BA B7 32E0- 9E AE A9 20 8D FF AE 20 3470- 69 BD 8D CO BD 8E CO 30 
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3478- 04 BD 88 CO 60 BD 88 CO 3540- A1 8D A1 A0 CD C5 D4 D4 3608- 00 00 00 00 00 00 00 00 


3480- AO 00 B9 ED 33 C9 00 Fe@ 3548- D2 C5 AO CC C1 AO C4 C9 3610- 00 00 00 00 00 00 00 00 
3488- 06 20 ED FD C8 DO F3 A0 3550- D3 Di D5 C5 D4 D4 C5 A0 3618- 00 00 00 00 00 00 00 00 
3490- 00 B9 A4 34 C9 00 FO 06 3558- D0 D2 CF C7 D2 C1 CD CD 3620- 00 00 00 00 00 00 00 00 
3498- 20 ED FD C8 DO F3 20 OC 3560- C5 A0 A1 8D A1 AD AD AD 3628- 00 00 00 00 00 00 00 00 
34A0- FD 4C 4D 34 C5 CE CC CS 3568- AD A0 C1 DO DO D5 D9 CS 3630- 00 00 00 00 00 00 00 00 
34A8- D6 C5 D2 A0 DO D2 CF D4 3570- D2 AO D3 D5 D2 AD BC D2 3638- 00 00 00 00 00 00 00 00 
34B0- CS C3 D4 C9 CF CE AO DO 3578- C5 D4 D5 D2 CE BE AD A0 3640- 00 00 00 00 00 00 00 00 
34B8- DS C9 D3 AO BC D2 CS D4 3580- AO AO AO A0 A1 8D AB AD 3648- 00 00 00 00 00 00 00 00 
34C0- D5 D2 CE BE 87 8D 00 01 3588- AD AD AD AD AD AD AD AD 3650- 00 00 00 00 00 00 00 00 
34C8- 9D 88 CO AS 2B 4A 4A 4A 3590- AD AD AD AD AD AD AD AD 3658- 00 00 00 00 00 00 00 00 
34D0- 4A 09 CO 85 3F A9 00 85 3598- AD AD AD AD AD AD AD AD 3660- 00 00 00 00 00 00 00 00 
34D8- 3E D8 20 84 FE 20 2F FB 35A0- AD AD AD AD AD AD AB 87 3668- 00 00 00 00 00 00 00 00 
34E0- 20 89 FE 20 93 FE 20 58 35A8- 87 87 8D 00 FF 01 60 00 3670- 00 00 00 00 00 00 00 00 
34£8- FC A0 00 B9 37 08 C9 00 35B0- 00 00 00 BE 35 C2 35 00 3678- 00 00 00 00 00 00 00 00 
34F0- FO 06 20 ED FD C8 DO F3 35B8- 00 00 00 00 60 01 00 01 3680- 00 00 00 00 00 00 00 00 
34F8- 20 OC FD 6C 3E 00 AB AD 35C0- EF D8 00 00 00 00 00 00 3688- 00 00 00 00 00 00 00 00 
3500- AD AD AD AD AD AD AD AD 35C8- 00 00 00 00 00 00 00 00 3690- 00 00 00 00 00 00 00 00 
3508- AD AD AD AD AD AD AD AD 35D0- 00 00 00 00 00 00 00 00 3698- 00 00 00 00 00 00 00 00 
3510- AD AD AD AD AD AD AD AD 35D8- 00 00 00 00 00 00 00 00 3640- 00 00 00 00 00 00 00 00 
3518- AD AD AD AD AD AD AB 68D 35E0- 00 00 00 00 00 00 00 00 36A8- 00 00 00 00 00 00 00 00 
3520- A1 A0 C4 C9 D3 DI DS C5 35E8- 00 00 00 00 00 00 00 00 36B0- 00 00 00 00 00 00 00 00 
3528- D4 D4 C5 AO C4 CS AO C4 35F0- 00 00 00 00 00 00 00 00 36B8- 00 00 00 00 00 00 00 00 
3530- CF CE CE C5 C5 D3 AO D3 35F8- 00 00 00 00 00 00 00 00 36C0- 00 00 

3538- C1 CE D3 AD C4 CF D3 A0 3600- 00 00 00 00 00 00 00 00 




















Une nouvelle disquette de jeux : 
Ludologic 





Au sommaire de la disquette LUDOLOGIC, 
trois jeux de réflexion de difficulté croissante. 
Ces jeux qui nécessitent des neurones aussi 
calmes qu'entraînés, ne devraient pas décevoir 
les amateurs de puzzles et autres casse-têtes. 


Ii n'est pas nécessaire de présenter TAQUIN, 
ce pousse-pousse informatique ici fort bien 
présenté. 

Nouvelle difficulté, NOIR & BLANC : 37 
hexagones peuvent être noirs ou blancs mais 
au départ vous n'en connaissez pas la couleur. 
Chacun comporte un numéro qui représente le 
nombre de cellules voisines blanches... A 
vous de reconstituer le décor original ! 
HEXAGONE MAGIQUE est encore plus 
délicat, même principe que le carré magique, 
mais ici vous devrez installer les chiffres de 1 
à 19 dans un hexagone de telle façon que les 5 
horizontales et 10 obliques totalisent chacune 
38 : bonne chance. 


Fidèle à son habitude, Pom's vous propose sur cette disquette les 


sources des routines écrites par Sylvie Gallet en assembleur Lisa 
2.5. Bien entendu, le Basic est également listable. TAQUIN et 80,00 F Franco, 

NOR & BLANC utilisent leur propre routine graphique qui Bon de commande page 74 

perrnet de dessiner plus rapidement qu'avec des shapes. 
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ui n'a jamais eu de 

problèmes en tapant 

LAOD au lieu de 

LOAD, ou CQTQLOG 
au lieu de CATALOG. N'avez 
vous jamais eu envie de 
raccourcir les commandes de 
ProDOS ou de les traduire, 
comme cela a déjà été proposé 
pour le DOS 3.3. Et si, pour le 
même prix, vous vous offriez 
deux commandes supplémen- 
taires qui ne tarderont pas à vous 
paraître indispensables ? 


Des commandes 
personnalisées 


Les versions de BASIC. 
SYSTEM sont innombrables et il 
serait imprudent de les ‘patcher’ 
directement comme en DOS 3.3. 
C'est pourquoi, plutôt que 
remplacer les commandes nor- 
males, on ajoute des commandes 
qui auront le même rôle. Cela 
aura pour avantage d'ajouter des 
commandes... sans en sup- 
primer. 

Après avoir lancé l'exécution de 
NEWCOM, vous pourrez taper 
"CATALOG" aussi bien que 
"CG" pour obtenir le catalogue 
d'une disquette. 


Les nouvelles 


commandes 
BL = BLOAD 
BR = BRUN 
BS = BSAVE 
CG = CATALOG 
CT = CAT 
CH = CHAIN 
CL = CLOSE 
CR = CREATE 
DL = DELETE 
EX = EXEC 
I = IN£ 
LD = LOAD 
LK = LOCK 
PX = PREFIX 
P = PR£ 
RN = RENAME 
SA = SAVE 
UN = UNLOCK 
VE = VERIFY 
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Commandes ProDOS : 
Renommez-les ! 


La syntaxe des commandes 
raccourcies est la même que celles 
des commandes normales. 
Comme l'intérêt de renommer les 
commandes utilisables seulement 
dans un programme est faible, 
seules les commandes accessibles 
en mode direct ont été traduites. 
Cependant, vous pouvez changer 
cela si vous le désirez, grâce au 
programme CHANGE. 


Note : NEWCOM est compatible 
avec ÉPE 5.0, mais EPE devra 
être lancé avant car il n'est pas 
relogeable. 


Choisir le nom de ses 
commandes 


Vous pouvez choisir vous-mêmes 
les nouveaux noms des 
commandes ProDOS en utilisant 
le programme CHANGE. Ces 
noms ne doivent pas être 
constitués de plus de huit 
caractères. De plus, le premier 
caractère d'une commande doit 
obligatoirement être une lettre. 
Les caractères suivants peuvent 
être n'importe quoi (les 
minuscules sont automatiquement 
converties en majuscules) sauf un 
espace ou un caractère de 
contrôle. Il faut faire attention à 
ce choix : en effet, si vous prenez 
un nom qui ressemble à une 
commande ProDOS (respec- 
tivement commande Basic), votre 
propie commande sera interceptée 
(respectivement interceptera) par 
la commande en question. Ainsi, 
si vous choisissez de renommer 
"CATALOG" par "CATA", votre 
commande sera interceptée et 


Bruno Fénart 


reconnue comme "CAT" du sous 
volume A. Réciproquement, si 


vous choisissez "L” pour 
renommer ‘"LOAD", votre 
commande interceptera la 


commande du Basic LIST et 
traduira par exemple "LIST,999" 
par "LOAD IST,999" (en mode 
direct uniquement et il suffirait de 
mettre ":" devant "LIST" pour 
éviter ce problème). 


Pour ceux qui n'auraient pas 
suivi, pas de panique ! En 
utilisant directement NEWCOM 
sans changer les noms prédéfinis 
vous n'aurez pas les problèmes 
cités ci-dessus. 


Deux commandes 
indispensables : 


BYE et ONLINE 


BYE permet d'enchaîner vers un 
autre interpréteur ou de relancer 
MOUSE.DESK si vous l'avez 
utilisé pour démarrer. Cette 
commande est d'ailleurs déjà 
disponible sur certaines versions 
de BASIC.SYSTEM (version 
1.1) . Mais NEWCOM vous 
permet d'en disposer quelle que 
soit la version que vous utilisez. 
Quant à la commande ONLINE, 
elle existe sur la plupart des 
logiciels toumant sous ProDOS, 
mais malheureusement pas avec 
BASIC.SYSTEM, faute de place 
sans doute. Là encore NEWCOM 
pallie ce défaut et cette commande 
devient vite indispensable, 
surtout avec l'arrivée des 
unidisks 3'5. 


Remarque la commande 
ProDOS qui permet de quitter une 
application est un peu sommaire 
(sauf si vous utilisez 
Mouse.Desk). Pour l'utiliser sans 
problème, il est conseillé pour 
chacune de vos applications sous 
ProDOS de noter le préfixe de la 
disquette et le nom du programme 
(qui doit être de type System). 
Par exemple, pour AppleWriter, 
le préfixe est/AW et l'application 
est /AW.SYSTEM, ce qui est 
simple à retenir. Pour Épistole,le 
préfixe est /EB (7!) et 
l'application /MY.SYSTEM (?!). 


Utilisation de ProDOS 
en assembleur 


L'utilisation de ProDOS en 
assembleur est assez délicate. En 
DOS 33 il suffisait d'envoyer 
par COUT la commande précédé 
de CTRL-D (exactement comme 
on l'aurait fait depuis le Basic). 


Avec ProDOS il existe deux 
solutions : 


+ La première en appelant 
directement le MLI. Cette 
technique a été expliquée par 
Alexandre Avrane dans les 
colonnes du numéro 20 de 
Pom's. Elle est délicate et 
nécessite plusieurs opérations 
(GET-PREFIX ou ON-LINE, 
GET-FILE-INFO, OPEN, 
READ, CLOSE). Elle n'est 
indispensable que si vous 
souhaitez ne pas utiliser 
BASIC.SYSTEM (pour écrire 
votre propre fichier système, par 
exemple) ou pour des 
commandes non fournies par 
BASIC.SYSTEM (comme, par 
exemple, ONLINE et BYE). 


+ La seconde solution ressemble 
beaucoup à celle utilisée en DOS 
3.3 . Il faut recopier en $200 la 
commande de BASIC.SYSTEM 
que l'on veut exécuter, suivie par 
un retour chariot (mais sans 


Récapitulation 
‘NEWCOWM' 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE NEWCOM,A$2000, L$391 














avant de les installer, faites : 


Comment faire ? 


En premier lieu, saisir et sauvegarder le programme binaire 
NEWCOM. C'est ce programme qui ajoute les nouvelles 
commandes. Saisir puis sauvegarder CHANGE. 


Vous voulez simplement utiliser les nouvelles commandes 
telles qu'elles sont notées dans l'encadré, faites : 


—NEWCOM 
Vous préf érez modifier le nom des nouvelles commandes 


-CHANGE 


Vous apportez alors les modifications que vous souhaitez. 
Après validation, VOTRE nouvelle version de NEWCOM est 
sauvegardée sur la disquette. Il vous est alors proposé de 
lancer NEWCOM pour installer vos nouvelles commandes. 
















CTRL-D), puis appeler 
DOSCMD = $BE03. Puis on doit 
tester s'il y a eu une erreur et 
l'afficher à l'aide du sous 
programme PRINTERR= $BEOC 
(le code de l'erreur se trouve dans 
le registre A et non en ERRCODE 
= $BEOF comme l'indique le 
manuel de référence). 


Exemple simple 


LDX #00 
BCL LDA CMD,X Recopie 
la cde 
STA $200,Xx 
INX 
CMP  #$58D ‘Dernier 
caractère? 
BNE  BCL 
JSR $BE03 sExécute 
la cde 
BCC NOERR ‘Erreur si 
Carry set 
JSR  $BEO0C ;Si oui af 
fiche err. 
dont le n° 
est dans À 
NOERR RTS 
CMD ASC "CATALOG" ;Commande 


DFB  $8D 


2000- AD 08 BE 8D 40 21 AD 07 
2008- BE 8D 3F 21 A9 03 20 F5 
2010- BE C9 OC DO 03 4C 09 BE 
2018- 8D FF 20 85 43 8D 08 BE 
2020- A9 21 85 3D A9 FF 85 3E 
2028- A9 23 85 3F A0 00 84 42 


C'est cette solution que nous 
utiliserons pour simuler les 
commandes de BASIC.SYSTEM 
en traduisant le nom des 
commandes et en décalant de 8 
caractères (la commande la plus 
longue est POSITION) la liste 
des paramètres. Seuls la gestion 
et l'affichage de l'erreur sont un 
peu différents, car pris en charge 
directement quand on revient de 
la commande extérieure vers le 
Basic. Notez que la table des 
commandes est concaténée de la 
même façon que celle de 
BASIC.SYSTEM. 


Enfin, pour terminer, signalons 
que le relogeur est le même que 
celui utilisé pour DATHEUR 
(Porm's n°24) en plus performant. 
Il tient compte de la structure 
spéciale des appels au MLI et 
permet de reloger les adresses des 
paramètres ainsi que celles des 
buffers ou des noms d'accès, 
suivant la commande ProDOS. 


2030- 84 3C 8C 07 BE 20 2C FE 
2038- 20 3C 20 60 AD FF 20 85 
2040- 3B A9 00 85 3A A2 00 Ai 
2048- 3A FO ?F 20 8C F8 Ad 2F 
2050- CO 02 D0 5B Bi 3A C9 BF 
2058- DO 12 88 B1 3A C9 00 DO 
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Programme ‘CHANGE’ 


10 D$ = CHR$ (4): PRINT D$"BLOAD NEWCOM" 

20 DIM PR$(30),NWS(30)} 

30 DATA "APPEND", "BLOAD", "BRUN", "BSAVE"," 
CATALOG", "CAT", "CHAIN", "CLOSE", "CREA 
TE'"!; "DELETE", "EXEC", "PLUSA",;*ERES, "TI 
N#","LOAD", "LOCK" 

40 DATA "NOMON", "OPEN", "POSITON", "PREFIX" 
, "PR#", "READ", "RENAME", "RESTORE", "RU 
N", "SAVE", "STORE", "UNLOCK", "VERIFY", 
"WRITE", "-" 

50 FOR I = O0 TO 30: READ KS:PRS$(I) = 
NEXT I 

60 PRINT CHR$ (21): HOME 


K$: 


320 


330 
340 
400 


L = LEN (NS): IF L = O GOTO 330 
FOR I = 1 TO L:J = J + 1: POKE J, ASC 
( MID$S (NS$,I,1)): NEXT I 

J = J + l: POKE J,0 

NEXT II 

M$ = "Enregistrer les nouvelles comman 
des": GOSUB 2000: IF K$ = "N" GOTO 5 
00 

PRINT CHRS$S (4) "BSAVE NEWCOM" 

M$ = "Lancer l'exécution de NEWCOM": G 
OSUB 2000: IF K$S = "N" GOTO 600 

CALL 8192: HOME : PRINT "ONLINE": PRI 


NT CHR$S (4) "ONLINE" 





100 REM Lecture 600 END 

110 FOR I = 8960 TO 9216: IF PEEK (I) = 1000 C = INT (II / 16): V=II+5-C*1 
194 AND PEEK (I + 1) = 217 AND PEE 6:H = 1 + C * 20: VTAB V: HTAB H: RE 
K (I + 2) = 197 AND PEEK (I + 3) = TURN 
141 THEN TB = I + 4:I = 9216 2000 VTAB 23: HTAB l: CALL - 958: PRINT 

120 NEXT I:LT = 9216 - TB - 2 M$:" ?  (O/N) "; 

130 = PB FOR I = 0 TO 30:KS = 2010 GET KS$S:KS$ = CHRS ( ASC (K$) - 32 * 

140 J=J+1:K = PEEK (J): IFK< >OT (K$ > “Z")): IF K$ < > "O" AND K$ < 
HEN K$ = K$ + CHRS (K): GOTO 140 > "N" GOTO 2010 

150 NW$S(I) = KS$S:LT = LT - LEN (K$) - 1: N 2020 RETURN 
EXT I 3000 REM Introduction d'un nom 

200 REM Affichage 3010 L = LEN (NS): IF L > LM THEN L = LM: 

210 VTAB 2: PRINT " Renommez les comma N$ = LEFTS (N$,LM) 
ndes de ProDOS": PRINT " 3020 HTAB H + 11:I = L: PRINT N$; 

"-: PRIN 3030 HTAB H + 11 + I: GET K$:K = ASC (K$ 
pu ";: HTAB 21: PRINT " } 
" 3040 IF K = 27 GOTO 3150 
220 VTAB 21: PRINT " 3050 IF K = 10 OR K = 11 OR K = 13 GOTO 3 
": PRINT "Place d 140 
isponible: 000": PRINT "Escape pour 3060 IFK = 8 ANDI > OTHENI=I-1l:G 
quitter. ee O1C 3030 
230 FOR II = 0 TO 30: GOSUB 1000: INVERSE 3070 IF K = 21 AND I < L THEN I = I + 1: 
: PRINT PRS(II); TAB( H + 8);: NORM GOTO 3030 
AL : PRINT " = ";NWS(II): NEXT II 3080 IF I = LM THEN PRINT CHR$ (7);: GO 

240 II = 0 TO 3030 

250 VTAB 23: HTAB 19: PRINT SPC( (LT < 1 3090 IF 96 < K AND K < 123 THEN K=K - 3 
00) + (LT < 10));LT: GOSUB 1000 2:K$ = CHR (K) 

260 N$ = NWS(II):LT = LT + LEN (NS) :LM = 3100 IFK=127 ORK< = 32 OR I = 0 AND 
8 * (LT > 7) + LT * (LT < 8): GOSUB (K < 65 OR 90 < K) THEN PRINT CHR 
3000:NWS(II) = NS:LT = LT - LEN (NS $ (7);: GOTO 3030 
) 3110 PRINT K$;:I = I + 1: IF I > L THEN L 

270 IF K = 13 OR K = 10 THEN II=II +1 D! 
= 31 * (II = 30) 3120 N$ = MIDS (N$,1,I - 1) + K$ + MIDS 

280 JE K = 11 THEN IE IT - 1, + 31 * (II (NI Lys = TI) 
= 0) 3130 GOTO 3030 

290 IF K < > 27 GOTO 250 3140 PRINT SPC( 8 - I);:N$S = MIDS (NS$S,i 

300 REM Quitter »1) 

310 J = TB: FOR II = 0 TO 3O0:NS$S = NWS(II): 3150 RETURN 

2060- 0B 88 B1 3A C9 20 DO 04 2090- 13 C9 81 FO OF 38 E9 CO 20C0- A6 3A 20 CB 20 BO 03 4C 

2068- AO 05 84 2F A5 3A 85 FA 2098- 90 15 C9 OC BO 11 AA BC 20C8- 45 20 60 C9 03 90 06 DO 

2070- A5 3B 85 FB A4 2F 20 D9 20A0- F3 20 FO OB 20 D9 20 CO 20D0> 06 EO 00 BO 02 18 60 38 

2078- 20 CO 05 DO 32 B1 3A 85 20A8- 04 DO 04 AO 02 DO FS AS 20D8- 60 88 Bi FA AA C8 Bi FA 

2080- FB 88 BI 3A 85 FA 88 B1 20B0- 2F 38 65 3A 85 3A A5 3B 20E0- 38 E9 21 90 OC 20 CB 20 

2088- 3A C9 40 FO 17 C9 80 FO 20B8- 69 00 85 3B 38 ED FF 20 20E8- BO 0? 6D FF 20 9j FA 18 
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Source ‘T.NEWCOM'’ 
Assembleur ProCODE 


Assemblage par ProCODE 


CÉREELELEEL ES ET SL LILILLITTI LILI TTI)) 


* * 
Fe NEWCOM (C} Bruno Fénart 1986 LS 
* * 


tétéééneeséneéésenéeeseeéesesss24/S/96 


#* Permet de renommer les commandes 

* de BASIC.SYSTEM 

Li 

* Ajoute en plus deux commandes : 

* BYE - permet de quitter BASIC.SYSTEM 

* ONLINE - permet de connaître tous les volumes en lignes 
* Syntaxe : Aucun paramètre pour ces deux commandes 


START EQU $2000 
DEBUT EQU START+$100 
FIN EQU DEBUT+$300 


* Variables en page 0 


LENGTH EQU $2r Longueur de l'instruétion 


PCL EQU S$3A Adresse de la ligne désassemblée 
At EQU $3C Adresse de départ pour MOVE 

A2 EQU $3E sAdresse de fin LC: » 

A4 EQU $42 sAdresse d'arrivée " » 

ADR EQU SFA Vecteur d'indirection temporaire 


* variables diverses 
BUFFINW EQU sBuffer utilisé temporairement 
* Sous programmes du moniteur 

:Décode la ligne (PCL) avec x=0 


sSortie d'un caractère 
?(AÏ)-(A2) vers (A4) avec Y=0 


INSDSP2 EQU SFB8C 
COUT EQU S$FDED 
MOVE EQU S$FE2C 


* Page globale BASIC.SYSTEM (BI) 


* a ——— 


DOSCMD EQU S$SB8E03 Exécution d'une commande du BI 
EXTRNCMD EQU SBEO06 :2MP vers interpréteur extérieur 
ERROUT EQU $BEO9 Affiche l'erreur et fin 

BADCALL EQU $BE8B Conversion code erreur MLI en Bi 
IXRETURN EQU S$BE9E z:RTS connu en page globale du BI 
RÉTRUFR EQU S$SBEFS Réserve (A) Dagels) sous le BI 
XTRNADDR EQU S$BE50 Adresse d'une commande externe 
XCNUM EQU $BES3 #N° de la commande (0 si externe} 
PBITS EQU S$BE54 ‘Paramètres optionnels autorisés 
*FBITS EQU $BES56 Paramètres trouvés 

VPATHI EQU $BE6C iVecteur vers la commande entrée 


* Page globale ProDOS & codes de fonction 


DEVCNT EQU 
ONLINE = 
QUIT 
AOC = 
READBIOC = 
WRITEBLOC = 


ORG 


$BF31 ‘Nombre de lecteurs 

$cs :Code de ONLINE 

$6s :Code de QUIT 

$40 Code de ALLOC INTERRUPT 
$80 Code de READ BLOC 

$81 Code de WRITE BLOC 
START 


ee CE 


* 


* 


" INITIALISATION : 


* 


* 


CREEEEESLLTLILESST LES LL 


* Installe la commande personnalisée 
* entre BASIC-SYSTEM (BI) et ses buffers 


Jgothem 


RELOGEur 


» BAR D € À #2: 


RELOGE 


Réassemble le programme situé à l'adresse = 
en fonction de son adresse d'assemblage = DEBUT 
Les deux adresses doivent être des multiples de 256 
Eongueur du programme (données comprises) 
La zone des données est séparée par DFB $00 
Le programme prend en compte la structure d'appel au MLI 

et reloge, si nécessaire, les adresses des paramètres 


EXTRNCMD+2 ;Préserve la conmande précédente 
PRECAfD+2 

EXTRNCMD+1 

PRECMD+1 


>FIN-DEBUT+$FF ;Réserve autant de pages qu’en 


GETBUFR ; occupe le programme à reloger 
#soc ;:Si pas d'erreur (A)= adr. buffer 
Igothem ssinon (A) = code d'erreur BI 
ERROUT zAffiche NO BUFFERS AVAILABLE et fi 
ADRESSE :Préserve l'adresse du relogement 
A4+] “Adresse destination Pour MOVE 


EXTRNCMD+2 ;installée en commande extérieure 
PDEBUT Adresses du programme déplacé 
Al+1 

S<FIN-1 

A2 

$>FIN-1 

A2+]1 


#0 ‘Poids faibles nuls 
A4 

Al 

EXTRNCMD+1 


MOVE 
RELOGE 


:Transfert du programma (Y = 0) 
sReloge le programe sous le BI 


(ADRESSE) 


= FIN-LONGUEUR 
(= BRK) 


ADRESSE zAdresse du relogement 
PCL+1 
#0 idem poids faible 


PCL 
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]Jdécode LDX #0 Indispensable pour INSDSP2 ADC 40 


LDA  (PCL,X) sL'instruction est égale à BRK STA PCL+1 
BEQ jfin sslors début des données SEC 
JSR INSDSP2 #Décode une instruction et SBC ADRESSE sLongueur du code désassemblée 
IDY LENGTH : détermine sa longueur IDX PCL : mise en X, À 
CPY #2 JSR TEST :Test si < longueur du programme 
BNE Jsuivant sLongueur < 3 : Opérande inchangé BCS Jfin 
JMP  jdécode tInstruction suivante 
LDA (PCL),Y iL'instruction est-elle JSR MLI ? Jfin RTS 
CMP #>MLI 
BNE Jnonmli * TEST une longueur 
DEY a 
LDA ({PCL),Y * Longueur en X, A (A poids fort) comparée à FIN-DEBUT 
CMP #MLI * Si inférieur C = 0, sinon C = 1 
BNE Jnonmii 
DEY TEST CMP #>EIN-DEBUT 
LDA (PCL),Y BCC Joui ; où opérande > adresse de fin 
CMP 5520 BNE Jnon 
BNE Jnonmili CPX #<FIN-DEBUT:Test poids faible de l'opérande 
LDY #5 sInstruction du MLI sur 6 octets BCS Jnon 
STY LENGTH Joui CrC :Compris entre les limites 
RTS 
]nonmli LDA PCL jPassage de paramètre pour CALCUL ]non SEC 
STA ADR RTS 
LDA PCE+] 
STA ADR+t * CAICUL des opérandes à modifier 
LDY LENGTH Instruction sur 3 ou 5 octets d'u aesthectsilasesn 
JSR CALCUL :Calcul d'une adresse relogée * Poids fort de l'opérande à modifier en (ADR),Y 
CPY #5 sEst-ce JSR $BFO0 ? * Retour € = 1 si aucune transformation, 0 sinon 
BNE Jsuivant sNon alors instruction suivante 
LDA (PCL),Y Adresse des paramètres MLI CALCUL  DEY 
STA ADR+1 mise comme paramètre de CALCUL LDA (ADR),Y iPoids faible de l'opérande 
DEY TAX ;: en X 
IDA (PCL},Y INY 
STA ADR LDA  (ADR),Y #Poids fort de l'opérande en A 
DEY :0ffset des opérandes à changer SEC Comparaison de l'opérande et 
LDA (PCL),Y ssSuivant le code de fonction MLI SBC #f>DEBUT sAdresse d'assemblage < opérande? 
CMP fALLOC :0ffset = 3 pour ALLOC INTERRUPT BCC Jnon 
BEQ Jcalcul JSR TEST :0pérande dans les limites? 
CMP #READBLOC ; ainsi que pour READ BLOC BCS Jnon sNon: instruction suivante 
BÉQ Jcaicui ADC ADRESSE :Si oui calcuie i'octet de poids 
CMP #WRITEBEOC ; sinsi que Pour WRITE BLOC STA  (ADR),Y ; fort de l'adresse translatée 
BEQ Jcalcul CLC 
SEC RTS 
SBC #$c0 inon SEC 
BCC Jsuivant RTS 
SHELL RSE * Variables du relogeur 
BCS Jsuivant Sn ln ru 
TAX 


OFFSET DFB 2,2,4,2,2,3,2,2,4,0,3,3:0ffset pour les codes 


IDY OFFSET,X 50ffset des codes de $CO à $CB de $c0 à $cB 


BEQ Jsuivant #Transformation sauf pour NEWLINE 





ADRESSE DS 1 :Adresse du reloÿement 

Jcalcul JSR CALCUL ; 

CPY #4 :Cas de OPEN & RENAME (doublée) DS DEBUT-* rLe début doit être aligné 

BNE Jsuivant ;sinon une seule transformation n 

iDY #2 z0ffset du second paramètres POSRACRORRERRELELETSELERARRERAE 

BNE Jcalcul 3: = JMP Le - 

Li Début du cade reloGeable ® 

Jsuivant IDA LENGTH Longueur de l'instruction - 1 . * 

SEC LÉLRELERLELLILLLE LL LL LL LL LILI LLLLLE] 

ADC ECL Calcul de l'adresse suivante 

STA PCL * Interpréteur des commandes 

LDA PCL+] * ====2s22s2sss2222sssese 
21E0- A9 B1 2C 53 22 10 O2 A9 2230- B9 00 02 A2 OA C9 28 FO 2280- AO C1 AC DO D2 CF C4 CF 
21E8- 82 20 ED FD AG AO 20 ED 2238- OC A2 1E C9 945 FO 06 C9 2288- D3 A0 D6 CF CC DS CD C5 
21F0- FD A9 BD 20 ED FD A9 A0 2240- 52 FO 02 A2 00 BD 5F 22 2290- 00 21 OG 00 C2 D3 C1 D6 
21F8- 20 ED FD AD 53 22 29 OF 224948- FO 06 20 ED FD E8 DO F5 2298= C5 D2 C9"C6 D9 C2 CC CF 
2200- 8D 53 22 DO 06 20 2F 22 2250- 60 00 00 00 02 00 00 02 22A0- C1 C4 C5»CC C5S"D4 CS C3 
2208- 18 90 13 A9 AF 20 ED FD 2258- 04 00 00 00 00 00 00 C9 22A8- C1 D4 CI CC CF C7 CF DO 
2210- C8 B9 00 02 09 80 20 ED 2260- AF CF A0 CS D2 D2 CF D2 22B0- CS CE D7 D2 C9 D4 C5 D8 
2218- FD CE 53 22 DO F2 A9 8D 2268- 00 CE CF AO C4 C5 D6 C9 22B8- C5 C3 D2 C5 Ci D4 CS C6 
2220- 20 ED FD CE 52 22 10 90 2270= C3, CS A0"C3 CFYCE CE C5 22C0- D2 C5 D3 D4 CF D2 CS CE 
2228- 18 60 20 8B BE 38 60 C8 2278- C3 D4 C5 C4 00 CE CF D4 22C8= C1 CD C5 C2hD2 D5 CE CC 
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* Retour à une éventuelle autre commande 
* si aucune des commandes n'est reconnue 


CLD 

LDA VPEATHI 

STA ADR 

LDA VPATHI+1 

STA ADR+] 

LDA #0 

STA NOCMD 

LDX #$$FF 
Jcherche LDY #$00 
Jcompare INX 

INY 

LOA NEWCMD,X 

AND 657F 

BNE jsuivant 

DEY 

BNE trouvé 

BEQ Jcomaui 
Jsuivant CMP  (ADR),Y 

BEQ Jcompare 

EOR #$20 

CMP  (ADR},Y 

BEQ Jcompare 
lautre INX 

LDA  NEWCMD, X 

BNE autre 
Jcomsui INC NOCMD 

LDA NOCMD 

CMP  NB8CHD 

BNE Jcherche 

SEC 
PRECMD JMP  XRETURN 
trouvé DEY 

STY  LNCMD 

LDA Jvecteur+1l 

STA XTRNADDR 

LDA Jvecteur+2 

STA XTRNAODR+#1 

LDA #0 

STA PBITS 

STA PBITS+1 

STA XCNUM 

CLC 

RTS 


* Vecteur d'indirection 


* (JMP est indispensable 


lvecteur JMP DISPATCH 


* DISPATCH des commandes 


sNon indispensable mais... 
sAdresse-1l de la commande entrée 
smise dans un pointeur temporaire 


sInitialise le compteur 

: des commandes 

slnitialise sur la liére commande 
Pointe 1er caractère de l'entrée 
:Caractére suivant 


Charge une lettre de la commande 


sler caractére ? 

Non alors comparaison complète 
:Comparaison avec l'entrée 
identiques -> suivante 

; sinon compare 

; avec une minuscule 
sidentiques —-> suivante 
Recherche un pointeur comnande 


Début d'une commande ? 
:Commande suivante 


Encore une ? 
;Va tester la cammande suivante 


:Commande non reconnue 
Saut à la commande précédente 


sMérorise la longueur-1l 
:Charge l'adresse de 
i retour vers la commande 


‘Aucun paramétre autorisé 


s:Indique commande externe 
:La commande a été trouvé 


vers les commandes 
pour Permettre le relogement) 


:Vecteurs des commandes 


installée 


À 2RRSSRESSSEESSSSSSSSSSSEz======= 


* Essai des commandes externes l'une après l'autre 


DISPATCH CLD 


IDX NOCMD 
BEQ GONLINE 
DEX 


BEQ 


GOBYE 


Nombre de commandes 


]nocr 


Jldécale 


Jefface 


GOBYE 


GONLINE 


Idevice 


DEX 
IDY 
IDA 
CMP 
BEQ 
INY 
BNE 
LDA 
STA 


3N° de la commande du BI 
#0 
BUFFIN, Y 
#$8D 
Jdécale 


Inocr 
BUFFIN,Y 
BUFFIN+8,Y ;Décalage de 8 octets 


INCHMD 
Jdécale 


Compare avec la longueur 


#8 


#$A0 
BUFFIN-1,Y 


Espace 


Jefface 
PROLNG, X 
PROVEC,X 


Longueur de la commande BI 

:0ffset du dernier caractère 
e 

PROCMD-1,X 

BUFFIN-1,Y 


}jcommand 

DOSCMD Exécution de la commande, et fin 
(retour avec un traitement d'erreur eventuel}) 
MLI 

QUIT 
QUITPARA 


sAU revoir ! 


MLI 
ONLINE 
ONLINEPA 
Ifinerr 
DEVCNT 
CNT 


Teste tous les lecteurs 


+ L) S LL 
COUT 
CNT 


BUFFIN,Y 
BYTO 


#$7F slsole le slot 


;Conversion en code ascii 
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LDA 4#"2" 
)d42 JSR COUT 
IDA #"" 
JSR COUT 
IDA "=" 
JSR COUT 
IDA #"* 
JSR COUT 
LDA BYTO 
AND 6f$0F :1sole la longueur du nom 
STA BYTO 
BNE Jnoerr sErreur 2 
JSR PRINTERR 
CELC 
BCC ]suite :Toujours pris 
Inoerr  LDA #"“/* :Affiche le nom du volume 
JSR COUT 
Jaffiche INY 
LDA BUFFIN,Y 
ORA #580 
JSR COUT 
DEC BYTO 
BNE Jaffiche 
Jsuite LDA #S8D 3Saute une ligne 
JSR COUT 
DEC CNT lecteur suivant 
BPL Jdevice 
CLC :Pas d'erreur 
RTS sRetour au BI 
Jfinerr JSR BADCALL :Convertie l'erreur MLI en BI 
SEC 
RTS sRetour avec affickage de l'erreur 


* Affichage de l'erreur 
PRINTERR INY 


LDA BUFFIN, Y Code de l'erreur 

LDX  #<NOCONNEC-TABERR 

CMP #$28 

BEQ Jafferr 

LDX  #<NOPRODOS-TABERR 

CMP 6545 

BEQ Jafferr 

CMP #552 

BEQ Jafferr 

LDX  #<IOERR-TABERR 
Jafferr LDA TABERR,X 

BEQ Jfin :Fin du message 

JSR COUT 

INX 

BNE Jlafferr :Toujours pris 
Jfin RTS 


* Variables et constantes 


*  naz===222=222-ssssss2x.= 


DFB O0 sSéparateur 


* Paramètres et variables pour QUIT & ONLINE 


CNT DS 1 
BYTD DS 1 
ONLINEPA DFB 2 
DFB O0 Device number = O <=> tous 
DA  BUFFIN sBuffer de $100 octets seulement 
QUITPARA DFB 4 
DFB O© 
DA 0 
DFB OO 
DA 0 
TABERR EQU * 
IOERR ASC "XI/O ERROR" 
DEB 0© 
NOCONNEC ASC "NO DEVICE CONNECTED" 
DFB O 
NOPRODOS ASC “NOT À PRODOS VOLUME" 
DFB O© 
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* Constantes et variables de l'interpréteur 


NBCMD DFB 
NOCMD DS 
LNCMD DS 
PROCMD EQU 
bsave ASC 
save ASC 
verify ASC 
bsave. = 
save. = 
ASC 
verify. = 
bload ASC 
load ASC 
delete ASC 
bload. = 
load. = 
ASC 


delete. = 
catalog = 


cat ASC 
cat. = 
ASC 
catalog. = 
open ASC 
cpen. = 
write ASC 
exec ASC 
write, = 
ASC 
create ASC 
exec. E 
ASC 
create. = 
fre ASC 
restore ASC 
fre. = 
store ASC 
rensme ASC 
restore. = 
store, = 
ASC 
rename. = 
brun ASC 
zun ASC 
unlock ASC 
brun. _ 
run. = 
lock ASC 
unlock. = 
lock. = 
chain ASC 
in ASC 
chain. = 
ASC 
in. _ 
flush ASC 
flush. = 
resd ASC 
read. = 


position ASC 
nomon ASC 
position. = 


ASC 
nomon. = 
pr ASC 
BI. 2: 
prefix ASC 
prefix. = 
close ASC 
close. = 
append ASC 
append. = 
tiret ASC 


tiret. - 





PROLNG-PROVEC+2;Nombre de commandes 
1 Numéro de la commande trouvée 
1 sLongueur de la commande trouvée 


9 Table des commandes ProDOS 


"CHA* 
“IN® 
* 

ug" 

. 


*FLUSH®* 


“Lead” 

LI 
“POSITIO" 
Q' 

LZ 

“OMON" 

LI 

“PR#" 

L 


NOEREFIX® 


*“CLOSE" 


“APPEND" 


PROVEC EQU 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


PROLNG  EQU 


SÉVSSISENIS AA SR RSR RC 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


à :0ffset des adresses des noms (der 


nier caractere} 
append.-PROCMD 
bload.-PROCMD 
brun.-PROCM 
bsave.-PROCMD 
catalog.-PROCMD 
cat.-PROCMD 
chain.-PROCMD 
close.-PROCMD 
create.-PROCM#D 
delete.-PROCHD 
exec.-PROCMD 
flush.-PROCMD 
fre.-PROCMD 
În.-PROCMD 
load.-PROCMD 
lock.-PROCMD 
nomon.-PROCRAD 
open.-PROCID 
position.-PROCMD 
prefix.-PROCAM 
pr.-PROCRAD 
read.-PROCMD 
rename.-PROCAD 
restore.-PROCMD 
run.-PROCMD 
save.-PROCMD 
atore.-PROCM 
unlock.-PROCMD 
verify.-PROCMD 
write.-PROCM 
tiret.-PROCMHD 


Longueur des noms 
append.-append 
bloed.-bload 
brun,-brun 
bsave.-bsave 
Ccatalog.-catalog 
cat.-cet 
chain.-chain 
close.-close 
create.-create 
delete.-delete 
exec.-exec 
flush.-flush 
fre.-fre 

in.-in 
load.-load 
lock.-lock 
nomon.-nomon 
open.-open 
position.-position 
prefix.-prefix 
PI.-pr 
xYead.-read 
rename.-rename 
restore.-restore 
run.-run 
save,-save 
store.-store 





NENCMD 


Ds 


*BF/26/5/86 


unlock.-unlock 
verify.-verify 
write.-write 
tiret.-tiret 


“ONLINE* 
$8D,0 
“BYE* 
S8D,0 
0 

“BL« 
0 

"BR" 
0 

“Bs" 
0 

ncG" 
0 

"CT" 

0 

ac" 
0 

“CL« 
0 

"CR" 

Lo] 

"DL" 

© 


nEXx" 


"px" 
Lo] 
“pr 


#Table des nouvelles commandes 
sonline + CR (pas de paramètre) 


sbye + CR (idem) 
sapperd 


:bload 
#brun 
zbsave 
scatalog 
scat 
chain 
:close 
create 


sdelete 


slock 
snomon 
‘open 
position 


sprefix 


:pr# 
; read 


;Tename 
irestore 


run 


ssave 
sstore 


sunlock 
sverify 


surite 
stiret 


CS PT Pr Cr CT TT TT TELE 0 D DE COST ENCRC OO D d'S VC ILSIEC CTI TCLCELTE 


Accompagné d'une cinquantaine de pages de documentation, Disk Manager permet de recréer les commandes du Dos, 
redéfinir l'organisation d'une disquette, grâce à ua jeu d'instructions qui en fait un langage simple d'accès à la disquette. 
11 offre également un programme d'édition à l'aide de commandes évoluées. 4 utilitaires figurent aussi sur la disquette : 


- Utili-disque : reconstruction d’une disquette détruite, Vérification, 


Pian 


- Ultra-copie : pour un backup particulièrement rapide 


d'occupation 


- Edicat : Edition du catalogue, classement des fichiers, Titres. 
- Multi-disque : pour le classement de tous vos programmes (tri instantané). 


Ôisk Manager 


le 


Dos en Kit 


de Dan Sieerey 


NNNASNS NA NE RSS S 
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Le PASCAL UCSD offre la 
possibilité de dater les fichiers, 
mais on oublie très souvent de 
mettre à jour la date lors du Boot, 
car il faudrait appeler le FILER 
puis choisir l'option 'Djate' puis 


"Qhuit'. 


C'est donc le but du programme 
qui suit avec des petits plus. 


En effet, il pennet : 


* de mettre à jour la date en 
mémoire et su r disquette, la 
syntaxe étant la suivante : 


jour-mois-annee 
jour-mois 
-mois-annee 
jour--annee 
jour 
-mois 
annee 
+ de placer automatiquement le 
nom du volume 5 (lecteur 2) en 
mémoire comme préfixe courant ; 


+ d'afficher tous les fichiers 
‘CODE’ du volume 5 et 

d'exécuter l'un d'eux en pressant 

simplement sur une touche ; 


- d'appeler directement l'éditeur 
oule Filer ; 


+ de quitter le programme. 


Pour cela, il a fallu rechercher les 
adresses de la date et du préfixe 
en mémoire pour le système 
Pascal 1.2, à l'aide du 
programme Prg.1. TEXT. Elles 
sont différentes pour les versions 
64Ko et 128Ko. Le programme 
Startup utilise celles du Pascal 
1.2 128Ko. 
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Le principe 


La date occupe 2 octets et le 
préfixe 8. Sur disquette, il faut 
savoir que pour chaque fichier le 
système réserve 26 octets et le 


Daniel Mueller 


Pour lire et écrire le 
DIRECTORY (qui débute au 
deuxième bloc et occupe 4 blocs) 
nous utilisons respectivement les 


fonctions UNITREAD et 
UNITWRITE. 


nombre maximum de fichiers est 
78. La structure apparaît 
clairement dans le programme. 


Programme ‘PRG.1.TEXT' 


program recherche; 








type T_ date = record case boolean of 


true : (adresse : integerji; 
false : (datesys ;: *R date) 
end; 
R date = packed record 
mois  d:.12> 
jour “45.31% 
asanee : 0..100 
end; 
var date : T_date; 
Ddate : R date; 
begin 


{ Initialise Ddate avec la date actuellement en memoire 
aller dans le FILER et mettre par ex: 1 jan 86 }) 
with Ddate do 
begin 
jour := 
mofs := 01; 
annee := 86; 
end; 
with date do 
begin 
adresse := -32767; { 58000 } 
while adresse < -16385 { SBFFF } do 
begin 
ff datesys” = Ddate then writeln ('adresse ',adresse); 


{ Comparaison de la date en memoire avec Ddate } 


adresse := adresse + 1 
end { whfle } 
end ( with } 
end. 


{ Incremente l'adresse } 


{ Initialiser la date en memoire et Ddate du programe äâvec les me mevaleurs, 
Lancer le programme ci-dessus et relever toutes le adresses aff dhees 
puis changer seulement la date en Memoire (Dar le FILER} et relancer 
le programme. L'adresse de la dete sera celle qui n'a pas ete affichee. } 





Adresse de base version 1.2 


128Ko 64Ko 
Date $B85A SACFC 
Préfixe SB84A SACEC 


Pour l'adresse de la date des 
versions 1.0 et 1.1, on peut se 
référer à l'article de M. Pascual 
paru dans le numéro 16, l'adresse 
du préfixe étant obtenue en 
ajoutant 16 à celle de la date, 


Si l'on désire ‘booter' sur ce 
programme il faudra le 
sauvegarder sous le nom de : 


SYSTEM.STARTUP 


sur le lecteur 1, ainsi il sera 
exécuté automatiquement. 


Ce programme toume sur Apple 
I possédant deux lecteurs de 
disquette. Pour un système avec 
un seul lecteur, il faudra modifier 
la ligne indiquée dans le listing. 
(procédure FLX_VOL) 


Programme ‘ST ARTUP.TEXT’ 


program STARTUP; 


Bibliographie 
APPLE Pascal, Operating system 


reference manual, Language 
reference manual, 


Découvrez PASCALE (tome 2) sur 
Apple ][,//e, //c de John Colibri 
édité par MNEMODYME, 


Le système Pascal UCSD (tome 
2) de Thierry CHAMORET édité 
par EDITEST. 


»TORY(0] 
informations po 
>uir le Volume ] 


uses chainstuff ( Setchain (FICHIER), (filler1 
rajoute le suffixe ,CODE a FICHIER »: 0,,.Z048; 
»puis l'execute j; { Nom de la disquette j nom_disk 
»: vol; 
const boot_vol = 4; { Drive 1 ou volume #4 }j { Numero du dernier bloc du volure j bloc _nbre 
cour_vol = 5; { Drive 2 ou volume #5 } »: integer; 
maxlong = 7; { Long max. du nom de volume } { Nombre max. de fichiers sur disquette } file nbre 
adrdate = -18342; { Adresse de la date pour Pas »: 0..77; 
»cal {1.2} 128K O0B85SA)j { Initialise - heure du dernier acces }) time 
adrfix = -18358; { Adresse du prefixe pour Pas »: integer: 
»cal [1.2] 128K OBB4A } { Date courante }j boot _date 
dash = '-t; »: r date); 
month = ‘???JanFebMarAprMayJuünJul1AugSepOctNovDe 
»c'; xdsk,code, text,info, 
data,graf,foto : 
type system = record case integer of {filler 
1 : (datesys : fr _ date); { Poke po »: 0..1024; 
vur la date } { Utilise par le FILER } etat 
3 : {volumesys : vol); { Poke po »: boolean; 
pur le volume } { Nom du fichier } filename 
2 : {adresse : integer) { Adresse x: string{15}; 
» en memoire }j { Nbre d'octets ds le der. bloc du fichier) nbreoctet 
end; { record }j »: 1..512; 
{ Date de la derniere modification } modifdate 
r_ mois = 1..12; »: r_date) 
r_ date = packed record end { record }; 
mois :; r mois; 
Jour :; 1.34; 
annee : 0.,100 var directory : array {0..77] of infodir; 
end; { recorg } prefix # vol: 
fichier : strfile; 
vol = string {[maxlong}; date : r date; 
memoire °: system; 
volume = 4..12; { Numero des volumes } ch : char; 
ok : boolean; 
ordre = {lire,ecrire); { Ordre pour la proced 
xure 10 Disk }j ($U-) 
strfile = string 118]; procedure I0_ DISK (commande : ordre; drive : Volume); 


{ Procedure gerant les entrees/sorties avec les lecteu 


longstring = string {255]; »rs disquettes 
et interceptant les erreurs j 
filet;p = (unt;ped,xdsk,code, text,info,data,gra 
»f, foto,secure); function no_ERREUR : boolean; 
{ Types de fichiers utilises par Pascal j var num_error : integer; 


procedure write ERREUR; 


infodir = packed record 


prebloc * integer: { Premier blo const inverse = 15; { Mode inverse } 
»c physique de la disq. } normal = 14; { Mode normal } 
derbloc : integer;: { Dernier blo var ch2 : char; 
»c du directory Î begin 
case filetyp of page (output); 
secure,untyped : { Seulement DIREC gotoxYr {10,08}; 
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28 


write (chr (inverse)); 
case num error of 
2 : mrite ("NUMERO DE VOLUME INCORREECT 
»]; 
S : write ('PERTE DU VOLUME'); 
7 : write ("NOM DE FICHIER ILLEGAL'); 
9 : write ("LE VOLUME SELECTIONNE N''EST 
» PAS EN LIGNE"); 
64 : write (‘ERREUR GENERALE ACCES DISQUE 
’») 
end; { case } 
write (chr (normal)}; 
gotoxY (10,10); 
write (chr (7), CONTROLER VOTRE LECTEUR OÙ LA 
»DISQUETTE',chr (7)); 
gotoxY (10,12); 
write ('Pressez une touche quelconeue pour con 
»tinuer 'J; 
repeat 
read (keyboard, ch2); 
untii ch2 > chE (OX 
page (output); 
end; ({ Write Erreur } 


begin ({ No Erreur } 
no erreur := false; 
num_error := IORESULT; ( Numero de l'erreur } 


if (num_error = 0] or (num error = 16) ( 16 -> di 
»squette protegee } 
then no_erreur := true 
eise write _ERREUR; 
end; f{ No Erreur } 


{$I-} 
begin ( IO disK } 
repeat 


case comrande of 
ecrire : unitwrite (drive, directory, sizeof 
»(directory},2}; 
lire : unitread (drive,directory,sizeof 
»(directory),2); 
end; ( case }j 
until no_erreur; 


end; { IO disK } 


($I+) 


procedure FIXE VOL; 
{ Fixe le nom du volume #5 en memoire ) 
begin 
{ Lit sur le drive 2 le nom de la disquette } 
10 disk (l1ire,cour vol); 
{ Pour un systeme avec un seul lecteur renplacer ce 
»tte ligne par : 
IO disk (lire,boot_vol) } 
prefix := directory{ü].nom disk; 
{ Le fixe en memoire } 
with memoire do 


begin 
adresse := adrfix, 
volumesys* := prefix; 


end; { with ]} 
end ( Fixe voL }; 


procedure FIXE DATE (disk : boolean); 
{ Lit la date sur volume #4 
ou la met a jour en memoire et sur disquette } 
begin 
if disk 
then begin 
directory{0}.boot date := date; 


{ Si la disquette est protegee contre l'ecriture 
il n'y aura pas de message d'erreur 
la date ne sera remise à four seulement en memoire } 
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IO disk (ecrire,boot vol); 
end ( if then } 
else begin 

I0 disk (lire,boot_vol); 
däte := directory{fG].boot date; 
end { if else }); 

{ Fixe la date en memoire} 

with memoire do 


begin 
adresse := adrdate; 
daätesys* := date; 


end: ({ with } 
end; f{ Fixe datE } 


procedure CATALOG (var strn : strfile); 
{ Lit le DIRECTORY de #5 est affiche seulement les fic 
»hilers codes (max. 58) 
possibilite d'EXECUTER l'un de ces fichiers en pres 
»sant 
la lettre correspondante } 
var n,k,col : integer; 


ch1 : char; 
pile : packed array {'A'..'z'j of integer: ( M 
»AX 58 fichiers } 
begin 
repeat 


strn := "te 





n := 0; f Compteur fichiers codes } 
k := 0; { Compteur general } 
fixe_vol; 


page (output); 
gotoxY (27,2); 


write ("DIRECTORY : ',prefix}; 
repeat 
k := k + 1; { On commence par directory{1} car 


»directorÿ{0}] etant 
reserve pour les informations gen 
»erales de la disquette } 
with directory(k] do 
if pos ('.CODE',filename) <> O0 { Position de 
» .CODE } 
then begin 
strn := filename; 
delete {strn,pos (".CODE',strn), 5), 


»{ Efface .CODE }j 
{ Mise en colonnes (15 p.co1.) des f 
»ichiers trouves } 
col := (n div 15) * 20; { Quelle col 
»onne ? } 
gotoXY (col+2,4+n mod 15); 
write ("[',chr (ord ('A'}+#n),']}] ",st 
»n); 
pile fchr {ord{'A'}+n)] := k; ( Rang 
» du fich, dans DIR } 
Ns= NET, 
end { if then }; 
until (k = directory{0}.file nbre) or {n = 58); 
if n = 0 then begin 
gotoxY (10,15); 
write (chr (7}, "AUCUN FICHIER CODE 
we chr FM); 
for n := 1 to 2000 do; 
ok := false; 
. exit (catalog); 
end; { if then ) 
gotoxY (16,23); 
write (directory{0}.file nbre,' fichiers dont ‘,n 
»,;! fichiers: ""CODE "TT: N),; 
gotoxY (0,00); 
write ('Taper une lettre - <ESC> pour quitter - < 
»SPACE> pour relire ? '}); 
repeat 
read (keyboard, chi); 
until chl in ['A'..chr (ord ("A'})+n-1),chr (27), 


» BE 
31f ord (ch1) = 27 
then begin 
ok :- false; 


exit {catalog}; 
end; { if then } 
until chl <> !" ; 
ñn := pile [chi]; ( Rang du “ichier dans Directory } 
{ Le nom du fichier est retourne dans STRN ) 
strn := concat (‘#f5:',directory{n}.filenane); 


end { CataloG }; 


procedure DATESET,; 
{ Saisie de la date 
- possibilite de rentrer seulement le jour 
- le jour et le mois {sur trois lettres) 
- ou en entier 
- controle sa validite 
— sauvegarde sur la disquette du boot si differente 


» ) 
var temp : integer; 
mois_lit : string [3]; { Represente le nwis sous 
> sa orme litterale }) 
fini : boolean; 


{ String pour la saisie d 
ve la date } 


strg_ date : longstring; 


procedure EFFACE; 
{ Efface jusqu'au premier DASH ,y compris } 
begin 
delete (strg date,1,scan (length ({strg_date}),=da 
»sh,strg date{1])); 
if length (strg date) > 0 
then delete (strg date,1,1); 


end; ( EffacE ]) 
{ ee ec 
La function SCAN ( limite, expression,debut ) : integ 
xer; 
limite integer: est le nombre maximum d'octets 


> a exPlorer 


expression : boolean; caractere a rechercher 
EX : = CH (le caractere à rechercher egal a CH) 
<>..CH<(." Le Li Ci different de 
» CH) 


sont les deux seules possibiites. 
: n'importe quel type sauf FILE; est le p 
vremier octet de la 
variable a partir duquel 1a recherche d 
vebute. 


debut 


La function SCAN retourne la position du premier oct 
»et verifiant EXPRESSION 

Si elle est en tete de la valeur a explorer, la posi 
vtion sera egale à zero. 


function TEST ENTIER (max : inte9er) : boolean; 
{ Transfomnme STRG_DATE en entier et teste si TEMP < 


» MAX, 
la valeur sera dans TEMP } 
var x, stop : integer; 
begin { Test_entier } 
tenp := 0; 
stop := scan (length (strg date),-dash,strg date 
»{1)}; 
for x := 1 to stop do 


1f strg date{x} in {°G'..*9'] 
then tenp := tenp * 10 + ord (strg_ date{x}) - 
»ord f°0!}; 
test_entier := (tenp > 0} and (tenp <= nax}; 
end; { Test_entier } 
function ANALYSE M : boolean; 
{ Test si les 3 premiers carac. de SRTG_DATE sont d 
»es lettres) 


var x : boolean; 
w : integer; { Compteur }) 
begin 
w := 1; 


X := true; 
mois lit := 
if length (strg date) > 0 
then while (w < 4) and x do 
if strg datefwj in ['A'..'v'] 


r2?2r: 
LEE 


then begin 
if w= 1 
then mois _lit{w}] := strg_da 
vtefw] 
{ La premiere lettre en MAJUS. et les 2 suivantes en m 
»inus. } 
else mois litfw} :- chr {o 
»rd (stzg date{w]} + 32); 
wie w + dl; 
end { if then }) 
else x := false 
else x := false; 
analyse M := x; 


end: ( Analyse_M |} 


function ESPACE : boolean ; 
f Supprime les espaces ainsi que les caracteres < 32e 
»t > 123 
et converti tout en majuscules |} 


var w : integer; { Compteur } 
begin 

W = j; 

espace := true; 


while w <= length (strq date} do 
if (ord (strg datefw]l) >= 33 } and {ord (strg da 
wtefw]) <= 122) 
then begin 
if (strq datefw] >= ‘a') and (strg_date( 
xW] <= "z'} 
then strg date{w] 
:= chr (ord (strg datefw]} - ord (* 
»2'} + ord ('A'})); 
W:=w +1; 
end ( 1f then } 
else 
delete (strg date,w,1); 
if length (strg date) = 0 then espace 
end; ( ESpacE }) 


:= false; 


function TEST : boolean; 
f Test la validite de la date {nbre de jours dans chag 
pue mois 
et annees bisextiles) } 


set of r mois; f{ MOIS 30 := nwis de 30 
xjours ] 


var mois 30 : 


ok1 : boolean; 
procedure MESSAGE; 
var wait : integer: 

begin 
gotoxY 1{3, 20); 
write (chr f7), "<< ERREUR dans la DATE >>"); 
for wait := 1 to 2000 do: 
gotoxY* (3,20); 
write (chr (29)); 


end; { MessagE }) 
begin ( TeST } 

ok1 := true, 

test := true; 


mois 30 := {4,6,9,11]; { mois de 30 jours sont plus 
» nombreux que ce deux 31 
} 
with date do 
begin 
1f {mois in nwis 30) and (jour >= 31} then oki 
»= false; 
{ Test le mois de fevrier |) 
if {annee mod 4 = 0) and {mois = 2) and (jour >» 
» 30} then oki :- false; 
if (annee mod 4 > 0) and (mois = 2) and (jour >= 
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> 29} then ok1 := false; 
end; { with } 
{ Si la date est fausse on restaure l'ancienne + me 
»ssage d'erreur } 
if not ok1 
then begin message; 
test := false; 
with directory{0] -boot_date do 


begin 
date.jour := jour; 
date.mois := mois; 
date.annee := annee; 


end; ({ with } 
end; { if then } 
end; ( TesT }) 


begin { DateseT } 
fixe date (false); 
page (output); 
gotoxY (0,2); 
writeln ('Saisie de la date : <1..31>-<Jan..Dec>-<ô 
»..99>'); 
with date do 
write 
('La date actuelle est le ‘,jour,dash,copy (mont 
»h,mis*341,3},dash, annee) 
»; 
repeat 
fini := false; 
gotoxY (00,5); 
write {'Entrer la date ? ‘'}); 
write (chr (29)); ( EOL efface jusqu'a la fin de 
vla ligne } 
readin (strg date); ( Saisie de la date } 
gotoxY (0,0); { Question d'esthetique ] 


if espace 
then with date do 
begin 
{ TRAITEMENT PRINCIPAL DE STRG DA 
»TE 
— jour - } 
if test entier (31) 
then jour := tenp; 
efface; ! Efface jusqu'au Brochain '-' 
») } 
{ — Mois - } 
tenp := 1; ( Initialise le compteur po 


vur ‘mois! } 
if (length (strg_ date) > 2] and analÿys 
ve M 
then while (temp < 13) and not fini 
» do 
{ Verifie si 'mois lit’ exis 
»te dans 'month' et 
initialise mois EX! Jan=1 
»,Fev=2,...} 
if copy (month, temp * 3 + 1, 
»3) = meis lit 


then begin 
mois := temp; 
fini := true; 
end { if then } 
else temp := terp + 1: 
efface; { Efface jusqu'au prochain ‘- 
»') } 
{ - annee - } 


if (length (strg däte) > 0) and test e 
»ntier (99) 
then annee := temp; 
end { with }); 
until test; 
{ Si la date est differente on la met à jour sur d 
»isque et memoire } 
if not (date = directorÿ{0].boot date) then fixe da 
te (true) 


end: { DateseT } 
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La méthode 


Vous n'avez pas la disquette 
d'accompagnement : il vous faut 
saisir et compiler le listing de 
façon classique. 


Vous avez la disquette 
d'accompagnementt : 

Il faut initialiser une disquette 
Pascal à l'aide du 
‘FORMATER. Booter alors sur 
la disquette Pons et lancer le 
progranvne de transfert 
"BASIC-P ASCAL'. Transférer 
alors le fichier STARTUPTEXT 
en suivant les indications 
fournies par ledit progranvne. ll 
convient maintenant de compiler 
et d'exécuter comme 
habituellement. 


begin { STARTUP ) 
fixe date (false); 


fixe_vol; 
repeat 
ok := tzue, 


page (output); 
write ("Startup (DM): Qjuit, DJate, Fjiler, Ejdit 
»or, eX)ecute ? {1.2]*}; 
gotox* (0,1); 
writeln (’Le PREFIXE courant est : "',prefix); 
write f'La DATE actuelle est r (US 
with date do 
write (jour,dash,copy (month,mois“3+1,3),das 
»h,annee) ; 
gotoxY (61,0); 
repeat 
read fxeyboard,ch); 
( Tout en majuscules } 
if ord fch) > 96 then ch := chr (ord (ch} - 32) 
untél ch fn {MD' "EM "ET, OV. txnpe 
case ch of 


‘D' : dateset; 
"E'" ; fichier := '*SYSTEM.EBITOR.'; { Le peint e 
© »st obligatoire pour les } 

“EV # fichier := "SYSTEM: FILER: "': { fichiers s 
»ans suffixe .CODE }) 

*X' : catälog (fichier);{ Positionne ok si aucun 
» fichier } 

"Q' : begin 


page foutput); 
exit (program); { ON QUIITE } 
end; 
end { case } 
un£it [eh En f'ET,'Et,' AU) and wok; 
page (output); | 
setchain (fichier); { OK let's go }) 
end. ( STARTUP } 


N.B.: Les caractères qui suivent le Signe » sont en fait la suile de la ligne 
précédente. 





Les transmissions de données en 
série (norme RS232C) sont 
fréquemment utilisées sur 
micro-ordinateurs. L'application 
la plus simple est la gestion d'une 
imprimante série. La transmission 
série devient indispensable pour 
échanger des données entre deux 
calculateurs, ou bien en local par 
liaison filaire, lorsque les deux 
machines ont des systèmes 
d'exploitation et formats de 
disquettes différents, ou bien en 
distant par liaison téléphonique. 


Cet article, en deux parties 
autonomes, se propose de 
montrer la gestion d'une Carte 
Super Série, sur un Apple en 
environnement CP/M. 


Pourquoi CP/M ? 


Tout d'abord parce que c'est un 
peu le “parent pauvre” sur Apple, 
et de ce fait les réalisations de 
transmissions séries sont rares, 
alors qu'il existe une 
impressionnante bibliothèque de 
logiciels de communication sous 
DOS 3.3. D'autre part, les 
transferts de données entre un 
Apple et une autre machine se 
feront vraisemblablement sous 
CP/M qui est un SED très 
répendu. Si vous devez tranférer 
vers une machine utilisant DOS 
3.3 ou ProDOS, il y a fort à 
parier qu'un simple échange de 
disquette suffira ! 


Pourquoi la carte SSC ? 


C'est d'abord la carte série la plus 
courante sur Apple, et d'autre 
part c'est une carte très 
performante au niveau électro- 
nique alors que le logiciel de 
gestion existant sur la ROM 
inteme présente quelques défauts 
qui le rendent quasi-inutilisable 
dans beaucoup d'applications. Il 
est alors indispensable de revoir 
complétement la gestion de cette 
carte. 





La transmission 
série 


Cette transmission nécessite une 
conversion des données, données 
existantes sous forme d'octets en 
une série de bits émis à une 
vitesse précise. Cette conversion, 
au départ comme à l'arrivée, est 
effectuée par un circuit spécialisé 
nommé UART ou ACIA. En 
émission, il suffira de charger 
avec la donnée le registre de 
transmission de l'ACIA, en 
réception de lire l'octet reçu dans 
le registre de réception. 


L'ACTA se charge d'autre part de 
transférer la donnée selon un 
format bien précis, nombre de 
bits de données, nombre de bits 
d'arrêt, parité, vitesse. 

L suffit donc en théorie d'un seul 
fil (plus la masse électrique) entre 
les deux machines. En pratique, 
pour fonctionner correctement, 
une liaison série doit en plus 
assurer un certain nombre de 
contrôles afin d'éviter la perte de 
données au cours du transfert. 
Ces contrôles, qui constituent le 
"protocole de liaison" (Hand- 
Shake des anglo-saxons), sont 
assurés par voie électrique (Hard- 
ware Handshake) en utilisant les 
signaux de contrôle de l'interface 
série, ou par voie purement 
logicielle en utilisant un pro- 
gramme de transmission res- 
pectant un protocole particulier. 
Les protocoles existants sont très 
nombreux. Il en existe de simples 
(ENQ/ACK ou Di/D3 appelé 
aussi XON/ XOFF), de 
moyennement évolués comme 
XMODEM ou de très élaborés 
(KERMIT). 


Nous allons détailler dans cette 
première partie un exemple de 
protocole Hardware, interfacé 
avec le BIOS CP/M, et, dans la 
deuxième un protocole logiciel : 
XMODEM. 





(1) 


Signaux RS232 


Sur le connecteur DB25 d'une 
interface série, on trouve les 
signaux suivant : 


TAD (Broche 2) Sortie 
émission de données. 

RXD (Broche 3) Entrée 
réception de données. 

RTS (Broche 4) Sortie 
demande pour émettre. 

CTS  (BrocheS) Entrée 
autorisation d'émettre. 

DSR (Broche 6) Entrée 
interlocuteur prêt. 

Masse (broche 7). 

DCD (Broche 8) Entrée 
détection de porteuse 
(avec Modem). 

DTR (Broche 20) Sortie prêt. 


Les brochages de ces signaux 
sont en principe standardisés. 
Malheureusement, un certain 
nombre de constructeurs 
appliquent les normes avec 
poésie. 


Remarque : pour les lecteurs intéressés, 
l'interface série CEI30T des ordinateurs 
de poche Sharp série PC ne 
fonctionnera correctement avec le 
programme présenté ici qu'en utilisant 
la Broche 11 comme signal DTR au 
lieu de la Broche 20. It faudra donc 
prévoir un câble de liaison spécial 
pendant la durée de la garantie de votre 
interface CE130T puis, ensuite, ouvrir 
la boîte et strapper directement sur le 
circuit imprimé, après coupure de la 
piste DTR. Cette opération est très 
simple à réaliser. 


Liaison avec un Modem 


Tout ces signaux sont utilisés lors 
d'une liaison avec un Modem, il 
suffit d'utiliser un câble “fil pour 
fil”, 
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Liaison locale avec un 
autre calculateur 


En liaison directe locale de deux 
machines, on peut simplifier et 
supprimer le Modem. Il est alors 
indispensable d'utiliser un câble 
particulier appelé “Eliminateur de 
Modem” afin de croiser deux à 
deux, signaux de données et 
signaux de contrôle, 

La carte SSC possède un 
“Jumper Block” à deux positions 
(Terminal et Modem). En théorie, 
ceci devrait pernettre une liaison 
locale avec un câble Modem 
nonnal ; en pratique, le câblage 
adopté par Apple et le logiciel de 
la ROM SSC rendent cette option 
inutilisable, car sans contrôle de 
transmission. 

Il faudra donc laisser ce Jumper 
Block en position Modem, et 
réaliser un câble éliminateur. 


Câble éliminateur 


Il est simple à réaliser, et ne 
consiste qu'à “croiser deux 
lignes” : 

Lignes de données : TXD d'une 
machine vers RXD de l'autre (et 
inversement). 

Lignes de contrôle : DTR d'une 
machine vers CTS de l'autre (et 
inversement). 


Gestion de la SSC 


La carte SSC est gérée et 
configurée à l’aide d'un certain 
nombre de registres. Ces 
registres sont à des adresses qui 


dépendent du slot dans lequel 


cette carte est située. En principe, 
sous CP/M comme sous Pascal, 
cette carte est en Slot 2. Ces 
registres permettent de 
positionner les paramètres de la 
transmission (vitesse, nombre de 
bits, parité), de lire ou écrire les 
données et de lire ou positionner 
les signaux de contrôles. Pour 
plus de détails, se reporter au 
manuel de la carte SSC. 


La carte comporte de plus des 
“switches” qui permettent de 
mémoriser une configuration par 
défaut et que tout programme de 
transmission peut aller lire. 


ER 
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Émission 

Pour émettre, il faut s'assurer que 
le registre de transmission est 
vide (afin d'éviter d'écraser 
l'octet précédemment émis, ceci 
surtout à basse vitesse), il faut 
ensuite s'assurer que le récepteur 
est bien prêt à recevoir la donnée, 
en lisant le signal CTS, et enfin 
écrire l'octet à envoyer dans le 
registre d'émission. 


Réception 

Pour recevoir, il faut indiquer à 
l'émetteur que l'on est prêt en 
activant le signal DTR, attendre 
que le registre de réception soit 
plein, puis lire l'octet. Il est 
ensuite indispensable, avant de 
retourner au programme appelant, 
de désactiver le signal DTR, afin 
d'éviter que l'émetteur n'envoie 
un octet pendant que l'on aura le 
dos tourné. C'est cette précaution 
qu'Apple semble avoir oubliée 
dans son logiciel de gestion SSC, 
et qui seule vous permettra, par 
exemple, de renvoyer un fichier 
arrivant d'une autre machine, 
vers une imprimante ou tout 
périphérique lent, ou de stocker 
sur disque en temps réel un 
fichier. 

Pour plus de sécurité, il est même 
préférable en lecture de n'activer 
DTR qu'après avoir vérifié 
qu'aucune donnée n'était 
présente, afin de solliciter 
l'émetteur. 


Programme 
SETSSC 


Ce programme, sous la forme 
d'une commande CP/M 
(SETSSC .COM) a une double 
fonction. Il permet tout d'abord 
d'inisaliser la carte SSC avec des 
paramètres en clair, En effet le 
codage de la liaison en vitesse, 
parité, etc. n'est pas toujours très 
parlant si l'on n'a pas le manuel 
de la SSC sous les yeux. Avec 
SETSSC on spécifiera 
directement les paramètres 
désirés. 

Ensuite, ce programme implante 
dans le BIOS CP/M deux petites 
routines d'émission et de 
réception d'un octet, selon le 


protocole détaillé plus haut. Ces 
deux routines sont rendues 
accessibles à CP/M à travers les 
unités logiques UR2: et UP2: 
qui correspondent en standard à 
la lecture et l'écriture d'un 
perforateur de ruban, périphé- 
rique qui commence à se raréfier, 
surtout chez l'amateur ! 


Il n'y a besoin de rien d'autre, 
maintenant vous ferez vos 
transferts en utilisant ce bon 
vieux PIP qui est en fait un 
logiciel de transfert très pratique 
grâce à ses nombreuses options 
(tabulations, formatage, numéro- 
tations etc.) 


Utilisation 


Votre carte SSC peut être 
configurée par défaut (switches) 
selon vos paramètres de 
transmission les plus fréquents. 


L'appel du programme se fait au 
niveau ‘commande’ de CP/M 
par : 

SETSSC <Parl>, <Par2>,… 

Les paramètres sont optionnels et 
sont au nombre de quatre au 
maximum, séparés par des 
virgules (un espace entre 
SETSSC et les paramètres est 
nécessaire). Chaque paramètre est 
constitué d'une lettre suivie de 
caractères. On aura les 
commandes suivantes : 


Bxxxx réglage de la vitesse où 
xxxx indique la vitesse en clair 
(et en bauds !). xxxx aura les 
valeurs 50 à 19200. 


Dx nombre de bits de données. 
x a les valeurs 5 à 8. 


Sx nombre de bits d'arrêt. x 
vaut 1 ou 2. 


Px choix dela parité. x indique 
la parité, selon les dénomina- 
tions françaises ou anglaises au 
choix. x vaudra : 

0 ou S parité 0 (Space) 

1 ou M parité 1 (Mark) 

P ou E parité paire (Even) 

I ou O parité impaire (Odd) 
N pas de parité 


La commande SETSSC sans 
paramètres initialise la carte avec 
les valeurs par défauts des 
switches. 





SETSSC avec des paramètres 
configure la carte selon les 
paramètres indiqués. Les 
paramètres non présents dans la 
ligne de commande sont laissés 
inchangés, ou sont lus sur les 
switches dans le cas d'un premier 
appel à SETSSC après un boot. 


Par exemple : 


SETSSC configure avec les 
switches. 

SETSSC B2400 passe la 
vitesse à 2400 bauds, le reste 
est inchangé. 

SETSSC D8,PN,S1 8 bits de 
données, 1 stop, pas de parité, 
vitesse inchangée. 

etc. 


Toute commande incorrecte 
génère un message d'erreur et ne 
modifie rien sur la carte. 

La configuration reste valide 
jusqu'au prochain démarrage à 
froid de CP/M. 


La transmission de vos données 
se fera ensuite avec PIP. Par 
exemple : 


Envoi du fichier TOTO.TXT vers 
la ligne série : 

PIP UP2:=TOTO.TXT 
Réception d'un fichier et 
impression avec tabulation et 
numérotation : 


PIP LST:=UR2:{T8N] 
etc. 


Remarque 1 


Veillez à utiliser les unités 
logiques UP2: et UR2: plutôt que 
les unités PUN: et RDR: Ces 
deux dernières unités gèrent 
également le perforateur et le 
lecteur de ruban, mais réalisent en 
plus une “mise en page” du 
fichier transféré. Par exemple, 
avant émission du premier octet 
du fichier, CP/M envoie sur 
PUN: une série de 80 codes 
“Nul”. C'est classique sur un 
ruban perforé, mais un certain 
nombre d'ordinateurs récepteurs 
risquent de ne pas apprécier la 
manœuvre. 


Remarque 2 

L'utilisation de PIP implique 
l'utilisation de fichiers de type 
texte, tenininés par Ctrl-Z, que 


PIP détecte comme fin de 
transmission. Il peut arriver que 


l'ordinateur qui vous envoie un 


fichier arrête son émission sans 
envoyer de Ctrl-Z (PIP le fait 
bien, pourquoi pas les autres ?). 
En ce cas, vous pouvez frapper 
un Ctrl-Z au clavier. La routine 
de lecture de la carte SSC, dans 
sa boucle d'attente, surveille 
aussi le clavier et retournera à 
CP/M tout caractère frappé 
comme provenant de la ligne 
série. 

Ceci permet de reprendre la main 
correctement et fermer le fichier 
TEçU. 

(Ce problème n'existe pas avec 
les commandes de transmission 
des PC Sharp qui émettent 
effectivement le code fin de 
fichier.) 


En émission, PIP arrête le 
transfert sur détection de Ctrl-Z, 
sans envoyer celui ci. Ceci peut 
éventuellement laisser l'ordina- 
teur récepteur bloqué. Deux 
solutions : 


-_si l'ordinateur récepteur permet 
une reprise de main facile, pas de 
problème ; 

- sinon, il faut disposer d'un 
moyen d'envoyer le Ctri-Z sur la 
ligne série. En cas de besoin 
donc, il faudra développer 
(n'ayons pas peur des mots) le 
logiciel suivant : 


Charger DDT.  Assembler les 
insuuctions suivantes : 
A100 
LHLD F390 
MVI C,lA 
PCHL 
puis Ctri-C pour revenir à CP/M 
et SAVE 1 CONTROLZ COM. 


La commande CONTROLZ vous ; 
permettra donc de libérer 
éventuellement un ordinateur 
récepteur en envoyant le code 
Ctri-Z sur la ligne. 


Remarque 3 


La lecture/écriture de la carte série 
se fait de façon très simplifiée. Il 
n'y a en particulier pas de 
contrôle d'erreur de parité, de 
cadrage ou d'embouteillage. Ceci 
n'est pas très gênant Car en 
pratique, cette utilisation est 


réservée à des transmissions 
filaires locales. 


Fonctionnement 


Le programme source de 
SETSSC est documenté et ne 
pose pas de problème particulier. 
La majeure partie du code est le 
traitement de la ligne de 
commande. Des tables ont été 
créées pour transformer les 
paramètres spécifiés en valeurs de 
configuration des registres de 
l'ACIA. A noter que pour plus de 
commodité la vitesse de 
transmission a été codée d'ASCII 
en DCB plutôt qu'en binaire. 

Le reste du code consiste à 
implanter les deux routines de 
lecture et écriture dans le BIOS 
dans la zone mémoire allouée aux 
Patches Slot 2 ( OF280H ). I faut 
ensuite entrer les adresses de ces 
routines dans la table des 
IOvecteurs aux emplacements 
réservés aux unités logiques 
UP2: et UR2: 

Dernière précaution, lors du 
Coldstart, CP/M effectue une 
recherche des cartes présentes 
dans l'Apple et crée une table 
avec les types de ces cartes. Lors 
de chaque démarrage à chaud, 
(donc en particulier après chaque 
exécution de PIP) toutes les 
cartes sont réinitialisées. Ceci est 
très gênant car on perdraïit ainsi la 
configuration définie par 
SETSSC pour revenir aux 
valeurs par défaut. El faut donc 
“tuer” la carte SSC pour CP/M, 
en mettant un code 0 (Slot vide), 
pour que le Wartnboot ne modifie 
rien. 


Dans la deuxième partie de cet 
article, nous étudierons un 
protocole simple mais déjà très 
puissant. Deux programmes, 
sous forme de commande CP/M 
seront proposés, l'un émettant, 
l'autre recevant. Ces deux 
programmes sauront s'attendre si 
nécessaire, contrôler la réception 
des informations reçues, 
réémettre des informations mal 


transmises. 
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Source ‘SETSSC.SOURCE"’ 


TITLE SETSSC 


î 


JM DRRRRE===SAMMMMME TS ESS ORDRE M MMMMME = 


; CONFIGURATION DE LA Super Serial Card 
; sous CP/M 2.23 


; SETSSC Bxxxx,Dx,Sx,Px 


3 BxxxXx Vitesse en Bauds 

: Dx Data bits, x=5 à 8 

7 SX Stop bits, x=1 ou 2 

3 Px Parité, x=0 ou S Space 

: I ouM Mark 

; E ou P Paire 

; O ou I Impaire 

î N Non 

; SETSSC configure avec les Switches 

j JESR 1986 

BDOS EQU 5 “Entrée BD0OS 
sBuffer d'entrée 


BUFFÉR EQOU 80H 


; Registres ACIA 


NSLOT EQU CE0AOH ;Carte en slot 2 

DIPSWI EQU NSLOT+1 ;: Switches 1 

DIPSW2 EQU NSLOT+2 ;Switches 2 

TDREG EQU NSLOT+8 ;Registre transmission 
RDREG EOU NSLOT+8 ;Registre réception 
STATUS  EQU NSLOT+9 ;:Registre d'état 
COMMAND EQU NSLOT+0AH ;Registre de commande 


CONTROL EQU NSLOT+0BH ;Registre de controle 


i 


+ Adresses clavier 


KBD EQU 0E000H 

KBDSTR EQU 0E010H 

+ Adresses BIOS 

PADR EQU 0F280H Patches pour slot 2 


IOVEC  EQU 0F380H ;Table vecteurs IO 
UR2 EQU OCH sOffset User-Reader 2 
üP2 EQU 10H ‘Offset User-Punch 2 
CARDS EOQU 0F3B8H ;Table cartes périphériques 
.PRASE 103H 
PAGE 
LD IX, BUFFER 
LD A, (IX+0) 
INC IX 
OR A sdes paramètres ? 
JR NZ, MODIF 


CALL LEC_ SWI ;récup. config. sw 
JP CONFIG config. ACIA et 
retour CCP 


: Analyse de la ligne de commande 


MODIF: LD BL,CARDS+2 
LD À, {AL} 
OR A slere fois ? 
JR Z,MODIFI ;Non 


CALL LEC_SWI ;Oui, récup. des switches 


JR LECTURE 
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Vous avez la disquette Pom's 


Les fichiers sont en format DOS 3.3. Vous 
les transférerez sur votre disquette CP/M 
à l'aide de “Universal File Conversion” ou 
APDOS. 

Vous n'avez pas la disquette 


Saisissez le dump avec l'utilitaire DDT à 
partir de l'adresse 0100. 
Dans les deux cas 


Utilisez la commande suivante pour confi- 
gurer la carte : 
SETSSC,Bxxxx,Dx,Sx,Px 


B = vitesse en bauds 50 à 19200 
D = nombre de bits de données Sè8 
S = nombre de bits de stop { ou2 


P = parité 01PINSMEO (voir texte) 


Exemples 


SETSSC BS600 PM 

SETSSC Sf ,8300 

SETSSC D8 

SETSSC (sans paramètre = utilisation de 
la positions des switches) 


É 
À 
Î 
Î 
Î 








MODIF1: CALL LEC_ACIA ; récup config ACIA 
LECTURE : LD À, (IX+0} ;Ligne de commande 

INC IX 

OR A ligne vide ? 

JP Z, CONFIG 

CP ME 

JP 2, LECTURE 

AND ODFH smeajusc. ou minusc. 

CP di 

JP Z,LEC_BAUD 

CP 2: 

JP Z, LEC_DATA 

CP #s" 

JP Z, LEC_STOP 

CP N 

JP Z, LEC PARI 


; Sortie sur erreur de commande 


‘ 


ERR_CMD: LD DE, ERR_MSG 

LD C719 

JP BDOS ‘message et retour CCP 
ERR_MSG EQU $ 

DB 7,13,10 

ASC ‘Fichtre, la commande ! 

DB 13,10,'5$' 


; Commande suivante {retour des routines LEC xxx } 


SUITE: LD À, (IX+0} 
INC IX 
OR A 
JP 2, CONFIG 
CP Bt 
JR NZ,ERR_CMD 














JR 
PAGE 


LECTURE 


; Routine de recherche d'une commande 


LA 


CHERCHE: LD 


LEC_DATA EQU 
LD 
LD 
CALL 
LD 
JP 
DB 

DATA_T EQU 
DB 


LEC_STOP EQU 
LD 
LD 
CALL 
LD 
JP 
DB 

STOP_T EQU 
DB 


; Lecture Parité 


8 mem—— 
ñ 


LEC_PARI 


PARI_T 


; Conversion vitesse en 


A, (IX+0)} 
IX 
HL 


HL 

HE 
HL,BC 
A, (HL) 
2 

HL 

ERR CMD 


$ 
BL,DATA T 
BC, 4 
CHERCHE 
{DATA}, À 
SUITE 


tou d'A 7 LS vg" 
5-1 
60H, 40H,20H,0 


$ 

HL, STOP_T 

BC, 2 
CHERCHE 
(STOP), À 

SUITE 


"1e, 2 
1 
0,80h 


$ 

BL, PARI_T 

BC,16 
CHERCHE 
(PARI),A 

SUITE 


sis, OEM, D’, ®' 
"E','e",'P',"p", "O0", 'o" 
“ren. Ne; une 

$-1 

OEOH, 0EOH, 0EOH, OAOH, OAOH, OAOH 
60H,60H, 60H, 60H, 20H,20H 
20A,20H,0,0 


HL,ACCU+1 
A 

(BL},A 

HL 

(HL},A 


A, (IX40) 


ÿ 


{ Lecture de la 


LEC_B1: 


BAUD_T 


EQU 
PAGE 


; Lecture des switches 


LEC_SNI: 


HL 

A 

Z,DIGIT 
(CHIF5), A 
1 

Z 


HE 
ERR_ CMD 


CON _BD 
IY, ACCU 
HL, BAUD T 
B,15 

HL 

A, (HL)} 
{IY+i} 

AL 

NZ,PAS BON 
A; (HL) 
(IY+0)} 

Z, TROUVE 
LEC_B1 


ERR CMD 


DE,BAUD T-32 
A 

HL.DE 

A,L 


{BAUD) , À 
OFH 
N2,SUITE 
A, (CHIF5) 

1 

Z, SUITE 
NZ,ERR CMD 


:19200 bauds ? 


50H, 75H,110H,135H,150H,300H 
600H, 1200H, 1800H, 2400H, 3600H 
4800H, 7200H, 9600H, 3200H 

$ 


A 
HL,DIPSW1 


{BAUD) , À 
HL 
A, (HL) 
B, A 
80H 
{STOP) , A 
A, 40H 
B 
A 
(DATA), A 
A,10H 
B 
3, LEC_SWI1 
A,30H 
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LD 
RET 


LEC_SWI1: 


; Lecture de J1'ACIA 


LEC_ACIA: 


LD 
LD 
AND 
LD 


RET 


: Configuration de 


; Mise en place des Drivers dans le BIOS 


Ne A5 1èc 


LD 

LD 

JP 
OKMSG : DB 
ASC 
DB 


PAGE 


Message Ok et retour CCP 


: Drivers d'entrée sortie série 
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(PARI) , À Dump hexadécimal de SETSSC.COM 
0100 00 00 00 DD 21 80 00 DD 7E 00 DD 23 87 20 06 CD 
0110 64 02 C3 AD 02 21 BA F3 7E B7 28 05 CD 64 O2 18 
0120 03 CD 8A 02 DD 7E 00 DD 23 B7 CA AD 02 FE 20 CA 
0130 24 01 E6 DF FE 42 CA OC 02 FE 44 CA 8B 01 FE 53 
HL, COMMAND 0140 CA A2 O1 FE 50 CA B5 O1 11 50 O1 0E 09 C3 05 00 
À, (HL) 0150 07 OD OA 46 69 63 68 74 72 65 2C 20 6C 61 20 63 
0E6H 0160 6F 6D 6D 61 6E 64 65 20 21 OD OA 24 DD 7E 00 DD 
(PARI),A 0170 23 87 CA ÀAÿ 02 FE 2C 20 CF 18 AS DD 7E 00 DD 23 
HL 0180 ES ED B9 £1 23 09 7E C8 El 18 BD 21 90 O1 O1 O4 
B, (HL) 0190 00 CD 7B 01 32 A9 02 C3 6C 01 35 36 37 38 60 40 
À, OFH 01AO0 20 00 21 82 01 01 02 00 cb 7B 01 32 AA 02 C3 6C 
e 01B0 O1 31 32 00 80 21 D3 O1 01 10 00 CD ?B 01 32 AB 
(BAUD) , À 91C0 02 C3 6C 0! 53 73 30 4D 6D 31 45 65 50 70 4F 6F 
01D0 49 69 4E 6E EO EO EO AO AO AO 60 60 60 60 20 20 
Ten 01E0 20 20 00 00 00 00 21 ES 01 AF 77 2B 77 DD 7E 00 
& O1FO B7 C8 FE 2C C8 DD 23 E6 OF ED 6F 23 ED 6F 2B B7 
{DATA} , À 0200 28 EB 32 AC 02 FE O1 C6 El C3 48 O1 CF E6 O1 FD 
A,80H 0210 21 E4 O1 21 64 02 06 OF 2B 7E FD BE O1 2B 20 06 
B 0220 7E FD BE 00 28 05 10 FO C3 48 Oi 11 44 02 AF £D 
{STOP), À 0230 52 7D 1F 32 A8 02 FE OF C2 6C 01 3A AC 02 FE O1 
0240 CA 6C 01 C2 48 01 50 00 75 00 10 01 35 O1 50 01 
0250 00 03 00 06 00 12 00 18 00 24 00 36 00 48 00 72 
0260 00 96 00 92 AF 21 A1 EO ED 6F 32 A8 02 23 7E 47 
Pr 0270 E6 80 32 AA 02 3E 40 AO CB 3F 32 A9 02 3E 10 AO 
: 0280 28 04 3E 30 AO 07 32 AB 02 C9 21 AA EO 7E E6 EO 
: 0290 32 AB 02 23 46 3E OF AO 32 A8 02 3E 60 AO 32 A9 
1 02A0 #82 3E 80 A0 32 AA 02 C9 E5 E5 E5 ES E5 21 AA £EO 
02B0 3A AB 02 F6 08 77 23 3A A8 02 F6 10 47 3A A9 02 
u 02C0 BO 47 3A AA 02 BO 77 3A A8 EO 21 FD 02 11 80 F2 
1 02D0 01 3B 90 ED BO 21 80 F2 22 90 F3 21 93 F2 22 &C 
O2E0 F3 21 BA F3 AF 77 11 EE 02 0E 09 C3 05 00 OD CA 
ACIA 02F0 53 53 43 26 20 4F 6B 2E 2E 2E 0D 8A 24 21 A9 ED 
ee 0300 CE 66 28 FC 21 A2 EO CB 46 20 FC 21 A8 EO 71 C9 
HL,COMMAND 0310 21 A9 EO CB 5Ë 28 03 2B 7E C9 23 CB C6 2B CB 5£ 
À, (PART) 0320 20 OF 3A 00 EO 07 30 F6 CB 3F 23 CB 86 32 10 EO 
8 ;active RTS 0330 C9 2B 7E 23 23 CB 86 C9 00 00 00 00 00 00 00 00 
(HL) , A 
AL n SHRRPESRRERER En 
A, (BAUD) PUNCH: LD AL, STATUS 
10H W_TDR BIT 4, (HL) ;TDR vide ? 
B,à JR Z,W_ TDR 
A, (DATA) LO HL,DIPSW2 
à W_CTS: BIT 0, (HL) ;CTS ? 
£, À UR NZ,W CTS 
A, (STOP) LD HAL, TDREG 
B LD (HL),C écriture 
{HL), À RET 
À, (RDREG) READER : LD BL, STATUS 
BIT 3, (HL) ;RDR plein ? 
JR Z,S_DTR 
D EE END De TN DEC HL 
HL, PUNCH LD À, (HL) lecture 
DE, PADR RET 
BC, FIN-PUNCH S_DTR: INC BL 
‘Transport du code SET 0, (HL) ;active DTR 
HL,PADR ;Adresse Punch DEC HL 
(IOVEC+UP2), HL # RDR: BIT 3, (HL) ;:RDR plein ? 
HL,PADR+READER-PUNCH = JR NZ,READERI 
(IOVEC4UR2) , HL LD À, (KBD) 
HL, CARDS+2 ;Slot 2 RLCA 
à JR NC, W_RDR 
(HL),A ;On “tue” la carte SRL À 
INC BL 
RES 0, (HL) 
LD (KBDSTR), À 
DE, OKMSG RET 
c, 9 READERI : DEC HL 
BDOS LD À, (HL) ;lecture 
INC BL 
13,10 INC HL 
'SSC Ok..." RES 0,(HL) désactive DTR 
29,10, "Se RET 
FIN EOU $ 
END 


Recueil n°1@om's 1,2,3 & 4 


Overlay dynamique 

Visicalc et Applesoft 

Un programme aide-mémoire 
Graphique : de l'ITF 2020 à l'Apple 
Les adresses du graphique 

Routrne de présentau on graphique 
Applications de graphiques 
haute-résolution 

Création de tables de formes 

Des instructions en une lettre 

Des boucles à s’arracher les cheveux 
PLE : Program Line Editor 

CRAE: Co-Resident Applesoft Editor 
Une incursion dans les mystères du DOS 
laverseur DOS 3.2/DOS 3.3 

Les drames de l'Append 

Réparez votre Append 

Réparez votre Renumber 

Analyse du contenu des slots 
Contrôlez le nettoyage-mémoire 
Faites le ménage dans la mémoire 
Banc d'essai des utilitaires 

de documentation 

Les limites des éditeurs de texte 
Copie d'écran texte 

Un catalogue général en Pascal 1 
Un catalogue général en Pascal 2 
Ua catalogue général en Pascal 3 
Formattez vos programmes 

La leçon de calcul 

Trois secondes pour trier 

Chargez vite vos fichiers binaires 
Sprechen Sie DOS ? 

Changez votre poignée de jeu 
S.H.LAM : une rouëne bien pratique 
Apprentissage de l'assembleur 1 
Apprentissage de l'assembleur 2 
Déplacement des programmes en 
assembleur 

Notions de base : les fichiers 

Un Print Using d'intérêt général 
Conversion Pascal/Basic/Pascal 
Communication grâce à l'Apple 
Communiquez avec le format DIF 
Les fichiers EXEC 

Ua exemple de Hello 

Personnalisez vos disquettes 

Un programme de TRACE sélective 
Un programme devinette 

Les mémoire de masse 

La carte M'DOS à l'essai 

Les codes ASCII épluchés 

Survol de l'Apple {#4 

Robot War 
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HAIFA : ua amper intepréteur complet 
Le clavier magique 

Création graphique en Pascal 
Logiciel graphique en Pascal 
Graphique, quand tu nous tiens. 
Toriue & 

Graphiques et logique 

Les Quatre Ponts 

Hard Copy Scïkosha 

Création de police de caractères 
Francisez le DOS 

La programunation facilitée 

Un analyseur de syntaxe 

Ua programme de test universel 
Ua programme de Hello complet 
Accélérez vos progamme en Basic 
Des programmes relogeables 
Recherche de codes binaires 
Ergonomie des programmes 
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Tiansfeit d’Applesoft vers EXEC 
Création de fichiers EXEC 
Tableaux de taille déclarée en Pascal 
Dump Pascal 

Ua générateur 

Notions de base : routine 

d'input généralisé 

Notions de base : gestion de fichiers 
Gestion de masques en Basic 
Boot PLE+CRAE 

Un programme de fondu enchaîné 
Le Hbasic : un basic pascalien 
Calculs en format gestion 

Calculs à 12 chiffres en Pascal 

Le loto, c'est facile 

Cryptogaphie à clef publique 
Visicalc et traitement de texte 

Les arcanes du moniteur Apple /// 
Moniteur étendu 

L'Apple//e à l'essai 

Le cours de Basic Applesoft 

Base de données sur Apple 
Mini-base de données 

PILOT et SUPER-PILOT à l'essai 
Multiplaa à l'essai 

Banc d’essai du BASIS 108 

Allo, Questel ? 

The Last One à l'essai 

CORP. à l'essai 

CX Multigestion à l’essai 

Banc test de la crate LEGEND 128Ko 
La souris de Lisa 

FID, MUFFIN et DFMUFFIN 
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Recueil n°3 om's9, 10, 11 & 12) 


Copie basse résolun'on d'écran HGR 
Un éditeur graphique HGR 

Fusion de tables de shapes 

Fondu enchaîné graphique 
Reconstituez le Puzzle 

La Magie de Magicalc 
Éditeur-Composeur de texte 

Donnez du caractère à votre imprimante 
Super-impression de chaînes 

Mise en forme de listings 

Lecture de fichiers TEXT 

Saisie Muitipage en Pascal 

Gestion de fichiers avec RWTS 
Pseudo-opcodes de divers assembleurs 
La Prom PSA désassemblée 

Jonglez avec votre catalogue 
MATGRAPH, votre routine graphique 
Compression d'images HGR 
Dessins avec une planche à clous 
Aide au graphique HGR 

Caractères géants à l'imprimante 
Décisionnel graphique à l'essai 
Créez des commandes automatiques 
Gestion de comptés bancaires 

Accès direct aux disquettes 

Édition des fichiers Basic 
Suppression de fin de programme 
lnput généralisé de tableaux 
Chargement automatique de l'Integer 
Conversion de Big Mac vers Lisa 2.5 
La communication avec l'Apple 


CX Système à l'essai 
Calendrier perpétuel en Visicalc 
Music 

Initiation à l'assembleur(l) 
Le Bavard 

Effets siroboscopiques 

Une astuce pour supprimer les REMs 
Des POKESs à gogo 

Un programme de menu 

Ua menu à la carte 

Comparaison de piogrannnes en 
langage machine 

Comparaison de programmes Applesoft 
Un “Type-ahead” en Appiesoft 

Tracé de couibes en converationnel 
L'obtention de l'extremum absolu 

des fonctions à plusieurs variables 

Tri rapide en assembleur 

MacAïticle 

Gutenberg à l'essai 

Les logiciels de traitement de texte 
Magic Window à l'essai 

laitiation à l'assembleur (2) 

Disque virtuel 16Ko 

Charts Unlimited à l'essai 

Le Calculateur Entier 
Exp(néSar(163)} est-il entier ? 

Patch du DOS 3,3 

Des tableaux de dimension variable 
& ONERR GOTO 

Programme assembleur à ja fin d’un 
programme Basic 

Nombres flottants en langage machine 
PEEKSs et POKES en Pascal 

Imprimez les codes ESC de votre PLE 
Tracé rapide de cercles 

Un éditeur de shapes 

Des trucs pour AppleWriter ][+ et//e 
Adaptez AppleWniter 1.1 à l'Apple //e 
Por’ s a vu MEMTERM 

Analyse de MagicMailer 

La famille Apple # 

L'Apple //cest né 
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Initiation à assembleur (3) 

Home, Sweet Home 

Un jeu d'adresse en Pascal : 
Ordralphabetix 

PioDOS à l'essai 

Ea compatibilité de l'Apple #{c 
Analyse de & VTOC 

Bloc-Notes 

Impressions des variables 
Documentation de tables de shapes 
Réduction d'images HGR 

PEEKSs à gogo 

Le Basicium 

Le lecteur Microexpansion 1 méga 
BugByter à l'essai 

Pam’s a vu LIGHT 

ThinkTankà l'essai 

Les nouvelles du Macintosh 
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Initiation à l'assembleur (4) 
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Composition de n° de téléphone BA 
Adaptation à ProDOS de routines 
assembleur A 
Compacteur de programmes Basic A 
Copie d'écran GR A 
De [a formule à la courbe B 
‘Startup’ Basic sous ProDOS B 
Des titre en Basic à 
d Jeu de mots 
Procédure & A  Mini-éditeur Basic BA d Transfert 11—> Mac B 
Disque vinuel 64Ko A  Tiansfonnez votre//e en ]f+ À dé /{yperparallélipipèdes et fractaux B 
PNR ARE rapide de tableaux E Conveision chiffres-letires Bd MacAstuces ! 
nput généralisé miniature Miai-éditeur Basic A 
Amper-interpréteur ICARE BA Po m’ sn °t 8 Six Lettres B 
Les essais du Macintosh / Des bugs sous ProDOS / 
é De MacWrite à AppleWriter [le B : : Print Using A 
d Les ok dé Banc Micros (B) Disquette mixte DOS/ProDOS BA " 
Gestion de masques améliorée BA ss de ne par écran Pom'’s n°23 
Lève-toi el brille ! / porte parole 
217 fichiers par disquette B Gestion de fenêtres BA Le Turbo Pascal P 
Converions minusculesMAJUSCULES A Graphiques aléatoires ; BA Un composeur sur le //c B 
Un catalogue général BA © Récupérez les icônes dusysièrne BA GENUTILE P 
Koala de ue / ei des informations BA Fonnateur de listings Basic A 
Appleworksà l'essai ! mie er , Navette A 
Visicalc Advanced Version ! é Les curseurs du système BA Un “Décruncher” À 
Jane, l’ Apple // sauce Macintosh ! Hess | ag Désassembleur 65C02 A 
es pirates ont la parole… Jeude la Vie A 
(o) 
Pom’s n°15 de ù . es HGR étendue . : Routine de saisie en Basic B 
pointeurs, Suile… Macästuces / 
Initiation à l'assembleur (S) A  Rendezle DOS transparent Bd fmpôts sur Midtiplan / 
Mo bypiak À Recherche dans un tableau BA Impèts sur Multiplan / 
isk Check-up SofiCopie A 
Dons se France | Pom’s n°19 Retour dans le Basic A 
Halle aux Scrolls A 
DURE = page hautre résolution se Un analyseur de syntaxe À Patches au DOS 3,3 À 
i Un catal ulti-sed 
Les caractères programmables us pr d'écran À Pom's n°24 
sur imprimantes Apple ! Disquettes mixtes DOS/Pascal BA 
Gestion de fichiers par Rwls et DOS 3.3 BA  Mousecat A Un disque virtuel sous CP/M A 
é Les rouines en ROM du Macintosh (8) & Lucyinthe Sky with Diamonds A  THGR sur DMP et ImageWiiter BA 
d Un éditeur de formes et de curseurs BA d Éirange accessoire A  EXECSAVE B 
Omnis2 à l’essai 1 à Fermez lesfenétres A ARE À 
3 0 é Où est la souris A alheur 
Pom’s n°16 Le système de développement 68000 (A DEENeion des chaînes BA 
_— La méthode PERT osiScript 
laitiation à l’assembleur (6) A Hard-copy HGR sur Image Wiiter A 6 Un composeur téléphonique sur Mac B 
Pot-pourri P1oDOS 1 L'intelligence artificielle 1. 6 Le Macintash et le Presse-Papiers A 
Gérer la date en ProDOS BA Retrouver vos programmes perdus (B) é Le Bundle etle Finder A 
Signature À Création de caractères BÀÂ Analyse multicritère B 
He op en Le be 1 Hard-Copy sur GP5S00A BA 
ccès direct aux disquelles , o Le kit 65C02 / 
L’Apple ea muititâche sa Pom’s n°20 Snake À 
é Personnalisez vos . FREE 
disqueties Macintosh B DOS ou ProDOS à lacarte A Pom s n°2 5 
é Call : un exemple d'application BA Manipulation de catalogue B 
d MacPaint et le Basic B Copie d’écran sursilentype BA Temps anglais B 
Sent A Gene À Méréamno 
ntrée analogique amélio / ; Miroirs Janus 
ou den nA en Basic et WPL ô re de comptes bancaires 4 Reset & ProDOS A 
s codes ASCII du /e Calages.… Compdisk A 
STARTUE £ sais de date en Pascal ; 4 Utilisation de la caste langage A Fonte ProDOS À 
+ + Ad litieram 
Conversion minuscules/MAIUSCULES BA Pom’s n°21 d Ascenceurs en Basic B 
CALLs à gogo @) dé MacAstuces / 
Conversion Pascal/DOS B €HFinder A 
Pom’s n°17 Édigreph B Ti dechaines #7 
Courier automatisé en WPL 1 Disk elfc / 
laitr'ation à l’assembleur (7) A  RWTS désassemblée 1 Courbes fractales P 
Transfert rapide de tableaux BA  Décrypteur ar A  Hyper-espace B 
Les pointeurs en Pascal UCSD P é Library ; un motf de sas faction A 
Aaimations graphiques BA é Une corbeille dans la é A 
Visualisation d’une distribution normale B d Fenêtres de saisie A  A=Assembleur 
Copie d'écran sur imprimante EPSON A La 36ème piste B  B-Basic 
é Catalogue sur imprimante BA Un compatible incompatible ? 1 PaPaseal 
é BSAVE et BLOADen Basic BA Défilement graphique À (B/A)=relatif au basic ou à l'assembleur 
Switch vidéo pour carte 80 colonnes 1 Calculdez B 6 «relatifau Macintosh 
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Le langage Basic, même aussi évolué 
que l'est celui de Microsoft pour le 
Macintosh, ne permet pas de tout faire 
(du moins si l'on veut conserver des 
temps d'exécution raisonnables). Le tri 
de chaînes de caractères est une de ces 
opérations souvent indispensables, mais 
qu'il vaut mieux confier à un langage 
certes primaire (mais Ô! combien 
efficace !) : l'assembleur, quitte à 
appeler la routine ainsi écrite depuis un 
programme Basic ; c'est l'objet de cet 
article. 


Mode d'emploi 


Vous pouvez fort bien avoir besoin 
d'une routine de tri pour vos 
programmes Basic, sans pour autant 
ressentir le besoin de savoir comment 
elle fonctionne ; c'est pourquoi nous 
passons directement au mode d'emploi, 
le Lecteur intéressé trouvera les détails 
techniques plus loin. 


Deux méthodes existent pour 
l'installation de routines en assembleur 
dans un programme Basic (voir le 
numéro 21 de Pom's): 


* routines sous la forme d'une 
‘Librairie’ indépendante du 
programme Basic ; 

*+ routines installées directement 
dans un tableau de variables 
entières et faisant partie 
intégrante du programme. 


Comme il y a quelques différences quant 
à l'utilisation des deux méthodes, nous 
vous proposons un mode d'emploi en 
deux parties, la première concernant ja 


Version ‘Library? 


Avant toute chose, il convient de 
signaler que le tri effectué par la routine 
pourrait être qualifié de ‘tri indirect’ 
puisqu'il est effectué sur un tableau de 
variables auxiliaire, à la manière de la 
routine écrite par Bernard Lambillon 
pour l'Apple //, et publiée dans le 
numéro 25 de Pom's. 


Les chaînes à trier doivent se trouver 
dans un tableau de variables 
(alphanumériques, bien entendu) à une 
dimension (ChaineS$(n) par exemple). 
Parallèlement, on devraavoir un tableau 
de variables entières à une dimension 
(comme Index%(n)}, contenant dans 
chacun de ses éléments le numéro de la 
chaîne de caractères contenu par 
l'élément correspondant du tableau de 
variables alphanumériques (ouf!). Ce 
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numéro sera compris entre 0 et le 
nombre de chaînes moins un. 
Rassurez-vous, ceci est beaucoup plus 
facile à faire qu'à dire : 


On suppose un tableau de variables 
alphanumériques baptisé ‘Chaine’, et 
constitué de 20 éléments (soit O à 19 
avec, par défaut, ‘Option Base 0’). 
Parallèlement, on a un tableau 
‘Index %’, aussi de 20 éléments ; pour 
‘initialiser' ce dernier afin qu'il 
contienne les numéros des chaînes de 
caractères, il suffit de faire : 


FOR 1%=0 TO 19 

Index$ (1%) =1% 

NEXT 

Lorsque l'on sort de cette boucle (qui 
nous laisse tous pantois tant sa 
complexité est étonnante), l'élément O 
contient O, l'élément 1 contient L... et le 
dernier contient 19. 


On peut maintenant appeler la routine de 
ti ; en voici la syntaxe, à la manière du 
manuel du Basic Microsoft : 


TRILIB! premier élément du tableau de 
variables entières, premier élément du 
tableau de variables alpharumériques 
[nombre de chaînes à trier] 


Le troisième argument, facultatif, 
correspond au nombre de chaînes à trier 
(toujours en partant de la première). Ii 
doit être un entier (<32767) et peut être 
passé à la routine de manière immédiate 
(‘20’), sous la forme d'une expression 
(Nombre%-10’) ou d'une variable 
entière (‘Nombre%'). Si cet argument 
est omis, toutes les chaînes sont triées. 
On pourrait donc avoir dans un 
programme un des appels suivants : 


TriLib! Index3%(0),Chaines$ (0),20 

TriLib! Index3%(0),Chaine$ (0), 

Nombre$-10 

TriLib! Index% (0) ,Chaine$({0), 
Nombre$ 

TriLib! Index3%(0),Chaine$ (0) 


Auretourdelaroutinede tri, le tableau 
contenant les chaïnes n'est pas modifié ; 
on trouve l'ordre des chaïnes dans le 
tableau de variables entières. Ainsi, pour 
faire apparaître à l'écran le résultat du 
ui, on peut employer une boucle comme 
celle-ci: 


FOR I$=0 TO 19 
PRINT Chaine${Ilndex%(1®%)) 
NEXT 


Tout ceci est mis en évidence par le 
programme de démonstration 
TriLib.Démo’, qui effectue le tri de 100 
chaînes de 200 caractères placées dans 
un fichier à accès relatif. 


Protections 


Afin d'éviter, autant que possible, les 
‘plantages dus à des passages de 
paramètres incorrects, la routine en 
assembleur effectue quelques tests et, si 
un problème est rencontré, provoque 
l'affichage du message “Erreur de 
syntaxe” (ou “Syntax error”, selon la 
version du Basic). Ceci apparaït dans les 
cas suivants : 


+ le premier argument ne correspond 
pas à un tableau de variables entières ; 

+ le tableau a plus d'une dimension ; 

+ le second argument ne correspond pas 
à un tableau de variables 
alphanumériques ; 

- le troisième argument n'est pas un 
entier. 


Remarques : sans reprendre ce qui a 
été dit dans le numéro 21 de Pom's, il 
faut rappeler que la ‘Library’ doit se 
trouver de préférence sur la même 
disquette que le Basic et, sur un Mac 
Plus, au niveau 0 du HFS. De plus, il 
est indis pensable d'initialiser la librairie 
avant le premier appel de la routine. 
Pour celle qui nous occupe aujourd'hui, 
il faut faire : 

LIBRARY "friLib.Rscr" 


Version 
‘Tableau de variables’ 


Le fonctionnement de cette version, en 
ce qui concerne le tri, étant strictement 
identique, nous nous contenterons de 
citer ici les différences avec la version 
‘Library’. 


Mises à part les petites manipulations 
liées à cette méthode et évoquées 
maintes fois dans des numéros 
précédents de Pom's (installation de la 
routine dans un tableau de variables, 
affectation de la variable du ‘CALL” 
avec VARPTR..), il convient de 
signaler deux différences importantes. 
La première se rapporte à la syntaxe ; le 
premier argument doit ici être l'adresse 
du premier élément du tableau de 
variables entières (et non plus l'élément 
lui-même), soit : 

VARPTR(Index% (0)} 

De même, le second argument doit être 
l'adresse du premier élément du tableau 
de variables alphanumériques : 
VARPTR(Chaine$s(9)) 

Enfin, la présence du troisième 
argument devient indispensable (voir les 
problèmes de décalages dans la pile, 
numéro 16 de Pomss). 
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L'appel de la routine avec cette méthode 
doit ressembler à : 


A!=VARPTR(Routines%(0)) 
A! VARPTR(Index#(0))}), 
VARPTR(Chaine$ (0)), Nombres 


La seconde différence porte sur les 
protections : il n'y en a pas ! Ceci 
s'avère ne pas être très gênant si l'on 
prend quelques précautions lors de la 
mise au point du programme. Après, 
protections ou pas, le programme 
fonctionnera de la même façon. 


Avant de passer à un autre point, nous 
aimerions ici réhabiliter le principe de 
l'installation d'une routine dans un 
tableau de variables, quelque peu 
dénigré ces derniers temps. 


Si les ‘Librairies apportent des 
avantages reconnus, le tableau de 
variables a aussi des points forts : 


+ le programme Basic n’a pas le ‘fil à la 
patte supplémentaire (il a déjà 
l'interpréteur) que constitue la 
‘Library’ (ce n'est jamais qu'un 
fichier) ; 

° on a pas le ‘temps mort' dû au 
chargement du code de la routine (on 
le charge de toute façon, mas cela 
passe inaperçu s'il est chargé en 
même temps que le programme 
Basic) ; 

- si l'on doit passer à la routine de 
nombreux paramètres (ou peu de 
paramètres, mais souvent), ce 
passage se faisant plus directement 
par la pile, il est possible de gagner 
un temps appréciable sur l'exécution 
du programme ; 

* enfin, nos Lecteurs qui ne possèdent 
pas le système de développement 
68000 et n'ont pas la disquette Mac 
26 ne peuvent pas utiliser la version 
‘Library’, alors qu'il leur est possible 
d'employer la version ‘Tableau’ en 
recopiant simplement les “DAT A” du 
programme de démonstration, et ce 
même s'ils disposent seulement de la 
version 1.0 du Basic (la ‘Library’ 
fonctionne avec les versions 2.0 et 
plus, binaires ou décimaies). 


Note : avec la version 1.0, la syntaxe 

d'appel de la routine est : 

A!=VARPTR (Routines# (0)) 

CALL A! (VARPTR{Index#(0)}), 
VARPTR(ChaineS (0}}),Nombre$) 


Les limites 


L'utilisation de la routine de tri 
n'apporte pas de contraites particulière 
pas rapport aux limites imposées par le 
Basic Microsoft, limites qui seront 
rarement atteintes : il est théoriquement 
possible de trier 32768 chaînes de 
32767 caractères soit beaucoup plus 
d'octets que peut en adresser un 
MC68000, processeur qui n'est pourtant 
pas ridicule en la matière. 





En résumé, on peut dire qu'en pratique 
la seule limite est la capacité mémoire de 
votre Macintosh. 


Méthode de Tri 


Nous avons utilisé le tri par insertion, 
qui autorise des traitements d'assez 
courte durée de tableaux de chaînes de 
petite ou moyenne taille : un tableau de 
100 chaînes de 255 caractères est trié en 
moins de trois secondes, ce qui est, 
compte tenu du système de comparaison 
des chaînes mis en œuvre (voir 
ci-dessous), tout à fait honorable. 


Méthode de 
comparaison 


Généralement, les routines de tri 
comparent les chaînes de caractères en 
utilisant brutalement l'ordre des codes 
ASCIE. Ainsi, la chaîne “Beaucoup” se 
retrouve placée avant “assez peu” 
puisque le code ASCII de “B” est 65 et 
le celui de “a” est 97. De même, la 
chaîne “œuvre” sera placée après 
“oxyde”. La routine proposée par Apple 
dans un des ‘Packages’ du Macintosh 
utilise un mécam'sme plus évolué qui 
permet d'obtenir destris plus logiques. 


Le tri s'effectue selon deux niveaux de 
priorité qui sont visualisés par le tableau 
joint à cet article. La priorité absolue est 
donné au premier ordre (de haut en bas 
sur notre tableau). Pour des caractères 
placés aux mêmes niveaux (sur la même 
ligne du tableau), le second ordre est 
employé (de gauche à droite). On 
retrouve un mécanisme équivalent pour 
les ligatures Æ, æ, Œ et æ (il y a des 
moments où l'on est vraiment content 
d'avoir l'accessoire “ad litteram””), 


La notion d'ordre prioritaire peut 
s'appliquer simultanément sur plusieurs 
caractères : la chaîne “acide” sera placée 
avant la chaîne “Adage” car la 
comparaison À/a correspond au second 
niveau de priorité, alors que c/d 
concerne le premier niveau. 


Il est évident que cette méthode prend 
plus de temps que fa comparaison pure 
et simple des codes ASCII, mais elle 
permet de ne pas se soucier de 
l'éventuelle présence de minuscules ou 
de caractères accentués. De plus, et si 
l'on fait abstraction du côté pratique, ce 
type de comparaison est 
intellectuellement plus satisfaisant que 
l'utilisation seule de l'ordre fixé par le 
code ASCH. 


Néanmoins, si vous avez des notions 
d'assembleur et désirez accélérer le 
traitement, vous pouvez remplacer 
l'appel de la routine (clairement repéré 
car encadré par deux instructions 
‘MOVEML') par un branchement sur 
une routine de votre cru. 


Namsees Nom Se x Ten RES 


( 
@ 
A 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
O 
P 
Q 
R 
S 
TL 
U 
v 
W 
X 
* 
Z 
[ 
\ 
] 
A 


1 


Le DS MmE+I—-—— 


er 


econd ordre 


* Pour le 
prénüer ordre, 
les caractères 
"Æ','&’, 

‘Œ' et 'æ’ 
sont 
considérés 
comme étant 
équivalents à 


Toutefois, 
powle 
secend ordre, 
‘Æ' est 
supérieur à 
AE". ‘œ* 
esi supérieur 
â'ae','Œ 
est supérieur 
à'OE et 
‘æ' est 
supérieur à 


0e. 


Ordres des caractères 
utilisés par la routine 
IUMagString pour 
comparer les chaînes 
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Programme 
Trilib.Démo’ 
D Démonstration de la routine ‘TriLib' 
(version “Library” de la routine de tri) 


Note : sur un Mac 128K0, ajouter 
‘CLEAR,26000, 1024 en début de programme. 


[3 
= 


ON ERROR COTO Erreur 

LIBRARY "TriLib.Rscr":' Ouverture de la 
irie’ contenant notre routine de tri. 

DEFINT A-Z:D1M Index(99},Chaine$ (99) ,Fenetres( 
7} 

" Le tableau ‘Index’ contiendra les numéros d'or 
dre des chaînes (de 1 au nombre de chaînes). 

" Le tableau ‘Chaine$’ recevra les 100 chaînes d 
e caractères, 

" Le tableau ‘Fenetre’ n'a pas de rapport avec 1 
a routine de Tri : il s'agit du tableau qui c 
ontiendra le code objet de 1a routine de ferm 
eture des fenêtres, publiée dans le numéro 19 

de Pom's. Les trois lignes suivantes concern 
ent aussi cette routine. 


DATA &h42A7,&hA924, &h2E1F, &h6706,&h2F07,&hA916, 
&h60F2,6h4E75 

FOR I=0 TO 7:READ Fenetres(I):NEKXT 

A!=VARPTR (Fenetres(0}) :A! 

* Ouverture de deux fenêtres. 
utilisée pour les messages, alors que la fené 
tre 2, beaucoup plus grande, autorisera la vi 
sualisation du début des chaînes de caractère 
S. 

WINDON 2,'"",(8,46)-(503,337),3:TEXTSIZE 12:TE 
XTFONT C:WINDOW 1,“", (8,24)-(503,41),3:TEX 
TSI£ZE 12:TEXTFONT (0 


* On ‘construit’ 100 chaînes de caractères avec 
des caractères choisis de façon aléatoire ent 
re ‘A’ et ‘Z‘. Une fois qu'une chaîne contien 
t ses 200 caractères, on l'affiche. 

BEEP:PRINT "Constitution aléatoire des chaînes 

(100 fois 200 caractères} en cours"; 

WINDONW OUTPUT 2:FOR I=0 TO SG:RANDOMIZE TI 
MER:FOR J=1 TO 200:ChaineS(I)=ChaineS$S(I})+CH 
R$ (65+INT(RND*26})}):NEXT:PRINT "Chaîne" I+1 

“ ChaineS$(I) :NEXT 

* Les chaînes de caractères sont enregistrées no 
n triées dans un fichier à accès relatif, com 
portant 100 enregistrements de 200 caractères 


‘Libra 


La fenêtre 1 sera 


WINDOW OUTPUT 1:CLS:BEEP:PRINT “Enregistrem 
ent des chaînes non triées dans le fichier *C 
haînes”…"; 

OPEN"R",1,"Chaînes",200:FIELD 1,200 AS Tampon$S 

FOR I=0 TO 99:LSET Tampon$-ChainesS (I} :POT 1,1+ 
1:NEX1': CLOSE 


" Les chaînes sont maintenant relues (on considè 
re qu'elles ont été créées par un autre progr 
amme ou sont déjà existante} et, en même temp 
s, on initialise le tableau d'index. 

CLS :BEEP:PRINT “Lecture en mémoire des chaînes 

non triées (depuis le fichier)"; 

OPEN"R",1,"Chaînes",200:FIELD 1,200 AS Tampons 

FOR I=0 TO 99:GET 1,1+1:Chaine${1}=Tampon$:Ind 
ex(I})=I:NEXT':CLOSE 





* Appel de la routine de Tri. Comme nous avons 1 
‘intention de trier toutes les chaînes, il es 
t possible d'omettre le troisième argument (n 
ombre de chaînes à trier). 

CLS :BEEFP:PRINT “Tri en mémoire des 100 chaînes 
de caractères"; 

TriLib! Index(0},ChainesS {0} 


* Les chaînes sont triées. Rappelons que seul le 

contenu du tableau de variables entières ‘rn 

dice‘ reflète le travail effectué par la rout 
ine : il contient l'ordre des chaînes. 

CLS:BEEP:PRINT "Affichage et enregistrement de 
S chaînes triées.."; 

WINDOW OUTPUT 2:CLS:OPEN"R",1, "Chaînes" ,200: 
FIELD 1,200 AS TamponS:FOR I=-0 TO 99:LSET 
Tampon$-Chaine$ (Index(1}} :PUT 1,1+1:PRINT Ch 
aine$(Index{I)) :NEXT:CLOSE 


* Le fichier ‘Chaînes’ contient maintenant les 1 
00 chafnes de caractères dans l'ordre. 

WINDOW OUTPUT 1:CLS:BEEP:PRINT "Traitement 
terminé, appuÿez sur une touche pour sorti" 


WAILE INKEY$-"":WEND:END 

* Utilisé en cas d'erreur (disquette saturée. 
r exenple). 

Érreur:RESUME Erreur2 

Erreur2:WINDOW OUTPUT J:CLS:BEKP:PRINT "== 
eur ! Impossible de continuer.."; 

WAHILE INKEY*$é="":NWEND : END 











Programme ‘Tri.Démo’ 


Démonstration de la routine ‘Tri 
{version “tableau” de la routine de tri) 


Note : sur un Mac 128K°0, ajouter ‘CLE AR,26000,1024' en 
début de programme. 


ON ERROR GOTO Erreur:DEFINT A-2:DIM Index(9%},ChainesS 
(99),Fenetres{(7},Routinef100]):' Le tableau ‘Routine’ re 
cevra le code objet de 14 routine de tri. 

DATA &h42A7,ShA924,6H2E1F, 8h6706,6r2507,6hA916,6h60F2,sR 
4E75 

" Code objet de la routine de tri. 

DATA 6h4E56,&kFrF2, &h206E,6hE,6h226E, 6 A,6h302E, 6t8, sh53 
40,6h3D40, 8hFFFE,6h7201, &t3401, shD442,«t:3630, sh2000,&6n5 
98F, 6h3F03,6h5168,6h3D5F 

DATA 6hFFF6,6h2DSF,&hFFE 2, 6h3802,6h598F', 6}:3F30, &h40FE, éir 
6156, 6h3D5F, &hFFEC, 6h2D5F, ShFFF8, 6h48E7, 6h FOCO, 6h558F,5 
h2F2E, &hFFF2, &h2F2E, ShFFF8, &h3F2E, &hFFF6, 6h3F2E,&hFFEC, 
6h3F3C, &hA, 6hA9ED, &h4A5F, &h4CDF, 6h30F, 6h6 B06 

DATA 4h3183,6h4000,6Ht6016,8h31B0, SH40FE, 6H4000, &h:C44,6h2 
:6h6606 ,8h3183, &h40FE, 8h6004,6h5544, &h60B0, ShB26E, SREFF 
E, 6k:6704, &6t:5241, &h608E, &H4ESE, Sh4E75, 6h4E56, &h0, &t:48E7, 
&hCO000, 8h302E, 6h8, &hCOFC, 6}:5, 6h7200 

DATA 6h1231,6h2,6hME189, «+ 1231,6h3,84hE189,6t:1231, 6t:4, «h2D 
41, ShA, &k:1231, 8h0, &hE149,4h1231, &h1,6h3D41,6h8, &h4CDF, & 
h3, &h4ESE, &h4E75 

FOR I=0 TO 7:READ Fenetres{(I) :NEXT 

* Installation de Ja routine de tri dans le tableau de va 
riables entières ‘Routine’ 

FOR I=0 TO 100:READ RoutinefI):NEXT 

A!=VARPTR(Fenetres (0) ) :A!:HINDONW 2,"",1(8,46)-(503, 337), 
3:TEXTSIZE 12:TEXTFONT O:NINDOW 1,"", (8,24)-(503,4 
1),3:TEXTSIZE 12:TEXTFONT O:BEEP:PRINT "Constituti 
on aléatoire des chaînes (100 fois 200 caractéres) en c 
oûurs_"; :WINDOW OUTPUT 2:FOR I=0 TO 99 

RANDOMIZE TIMER:FOR J=1 TO 209:ChaineS$(1)=Chainest(i}+ 
C#R$ (S5+INI'(RND*"26)} :NEXT:PRINT "Chaîne" Isl ": * C 
baineS(I):NEXT:WINDOW OWTPOT !1:CLS:BEEP:PRINT "En 
registrement des chaînes non triées dans le fichier “Ch 
âines".…." ;:OPEN"R",1, "Chaines", 200 
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FIELD 1,200 AS Tampon$:FOR I=0 TO 99:LSEÈT Ta2mpon$=-Ch21 CLS:BREP:PRINT “Affichage et enregistreme 

neS(I) :POT l,1+1:NEXT:CLOSE:CLS:BEEP:PRINT "Llectiur nt des chaînes triées…";:WINDONW OUTPUT " | _) | 

e en mémoire des chaînes non triées {depuis le fichier) 2:CLS:OPEN'"R",1,"Chaînes"*,200:FIELD 1, r. A 

…"; :OPEN"R",],"Chaînes"”, 200:FIELD 1,200 AS TamponsS:F 00 ÀS TamponS:FOR I=Q TO 99:LSET Tampon EE 

OR 1-9 TO 99:GET 1,1#i:ChaineS(1}=-Tampons $=ChaineS$(Index{l)}:PUT 1,I+1:PRINT Chai  æ 
Index{I1)=I1:NEXP:CLOSE:CLS:BEEP:PRINT "Tri en mémoire neS(Ilndex{l}):NEXT:CLOSE né 

des 100 chaînes de caractères"; WINDOR OUTPOT 1:CLS:B8ELP:PRINT "Traitement terminé, a 
* Appel de la routine de tri. Attention : avec cette vers ppuyez sur une touche pour sortir."; 

ion, tous les arguments sont requis. De plus, aucun tes NWARILE INKEYS="":NEND:END 

t n'est effectué quant à la validité des arguments. Erreur:RESOME Erreur? 
Tri!=VARPTR{Routine(0)):Tri! VARPTR{(Index(0)),VARPTR{IC Erreur2:WINDOW OUTPUT l:CLS:BEEP:PRINT ‘Erreur ! Imp 

haineS$(0)),100 ossible de continuer…";:NBILE JINKEY$=-"": NEND:END 

sy te , = à ee 
Source TriLib.Asm' (version ‘Librairie’ 
Trap _Pack6 $A9ED ; Utilisé pour l'appel du ‘Package’ numéro 6, baptisé ‘International Utilities Package’. Il est 
; Situé dans le fichier ‘système’ (ressource INTL 6). 

GetNextLibArg EQU $2A : Cette routine est utilisée pour saisir un paramètre passé à la tibrairie depuis le Basic. 
BasicError EQU $42 ; Routine autorisant l'affichage de messages d'erreur du Basic. 
IUMagString EQU 10 : Ce ‘sélecteur’ correspond à la routine de comparaison de chaînes située dans Pack 6. 
VariabieChaine EQU 2 ; Valeur retoumée dans DO par ‘GetNextLibArg' pour une variable de type ‘chaîne’. 
VariableEntiere EQU 3 ; Valeur retoumée dans DO par ‘GetNextLibArg' pour une variable de type ‘entier’. 
UneDimension EQU 1 : Pour s'assurer que le tableau de variables entières a bien une seule dimension. 


: Saisies et vérifications des paramètres passés à la routine de tri depuis le programme Basic. Nous devons trouver, dans l'ordre, La 
: première variable d'un tableau de variable entières (une seule dimension), la première variable d'un tableau de variables ‘chaînes’ et. enfin 
: une variable entière, ou rien si le troisième argument (facultatif) est omis. 


JSR GetNexiLibArg(A5) ; Saisie du premier paramètre. S'il s'agit d'une variable entière, ‘GetNextLibAs retourne 
CMP1 #VariabieEntiere DO ;3 dans les 16 bits de poids faible de DO. Si la valeur est différente (autre type de 
BNE.S @3 ; variable), on provoque l'affichage d'un message d'erreur. Cette comparaison nous permet 


: aussi de détecter une éventuelle variable entière ‘temporaire (A%°*10, INT(T%(2)/3)...) car, 
: dans cs cas, le bit 15 de D0 est mis à 1. On obtiendrait donc $8009 au lieu de 3. 
CMPIB  #UneDimension,-3(A2) : AU retour de la routine 'GetNextLibArg', et pour une variable entière, le registre 
BNES  @3 ; d'adresse A2 pointe sur le contenu de cette variable. Pour s'assurer que le tableau de 
: variable entières est bien à une seule dimension, on vérifie le contenu de l'octet situé trois 
: octets avant l'adresse pointée par A2. Cet octet contient le nombre de dimensions du 
; tableau (voir F'article ‘Call : un exemple d'application‘, numéro 16 de Pom's). 


MOVE.L A2,D6 ; On sauvegarde l'adresse du premier élément du tebleau de variables dans D6. 

JSR GetNextLibArg(A5) : Saisie du second paramètre, St s'agit d'une variable ‘chaîne’, GetNextlibAr' retoume 
CMPI #VariableChaine,DO ; 2 dans les 16 bits de poids faible de DO. Si la valeur est différente, on provoque 

BNES  @3 ; l'affichage d'un message d'erreur. 

MOVE.L A2,D5 ; Pour une variable ‘chaîne’, ‘GetNexiLibArg' retourne l'adresse du descripteur de la chaîne 


; dans A2. Dans ce descripteur, on trouve dans l'ordre, la longueur de la chaîne sur deux 
; octek suivie de son adresse sur 3 octets (24 bits), On sauvegarde l'adresse du premier 
: descripeur dans D5 

JSR GetNextLibArg(AS) ; Saisie (ou tentative) du troisième paramétre (qui doit étre une variabie entière). 

MOVEAL D6,A0 ; Onplace l'adresse du premier éément du tableau de variables entiéres dans le registre AO. 
; On n'utilisera pas ce registre tout de suite, mais effectuer cette opération malntenant nous 
: évitera de le faire deux fois, plus tard. 





TST DO ; On teste le contenu de DO. S'il est nul, il n'y a plus de paramétre dans ia liste passée 
BEQS  @! : depuis le Basic. On se diige vers l'étiquette @1 pour prendre le nombre par défaut. 
ANDI #$7FFF DO ; On force le bit 15 de DO à 0 car on peut ici avoir une variable entière temporaire (une 
; expression comme "NombreChaine-10", par exemple). 
CMPI #VariableEntiere DO ; On s'assure que le paramètre passé est bien un entier. 
BNE.S @3 ; Sinon, message d'erreur. 
MOVE  (A2),D0 ; Comme vu précédemment, A2 pointe sur le contenu de la vartable entière. On place 
BRAS @2 ; cette valeur (nombre de chaînes à trier) dans DO et on se dirige vers le tri. 
@1 MOVE  -2(A0),D0 ; Si nous n'avions pas de troisième paramètre, il faut trier toutes les chaînes de 
BRAS @2 ; caractères. Pour en connaître ie nombre, on récupère le nombre de variables entières 


æ 


: contenues das le tableau. Ce nombre se trouve dans {es deux octets précédents le premier 
; élément (voir le numéro 16 de Pom's). La valeur trouvée est placée dans DO et on ss dirige 
; vers la routine de tri. 


, La routine ‘ BasicError' provoque l'affichage d'un des messages d'erreur du Basic Microsoft. L'argument doit être placé dans le 
@3 MOVEQ #2,D2 ; registre de donné D2. 2 correspond à “SYNTAX ERROR" (ou son équivalent français). 
JSR BasicError(A5) ; Le retour à l'interpréteur est aussi assuré par ‘BasicError’. 


: Routine de tri. La méthode utilisée est le tri par insertion. 


Tampon Set -14 ; On prévoie un tampon de 14 octets au sommet de la pile dans lequel nous piacerons : 
AdrChaineExt Set Tampon : - l'adresse -4 octets- de la première chaîne (chaîne extraite) : 

LongChaineExt Set -10 ; « la longueur -2 octets- dela première chaîne ; 

AdrChaïneComp Set :8 : - l'adresse.4 octets- de la seconde chaîne (chaîne à comparer) : 
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LongChaineComp Set -4 ; - la longueur -2 octets- de la seconde chaîne ; 
NombreElements Set -2 ; le nombre -2 octets- de chaînes à trier (moins un). 
@2 LINK A6#Tampon | mi | : Création du tampon de 14 octets au sommet de la pite. 









































MOVEA.L D5,A1 z ; L'adresse du desacripteur de ta première chaîne de caractères est placée dans le registre A1. 
SUBQ #1,D0 L'EN ; le registre DO, qui contient le nombre de chaînes à trier, est décrémenté de 1. On a donc 
® + SN ; dans DO ke nombre moins 1, cæ qui convient mieux à une routine en assembleur (premier = 0, 
D : dernier = N-i). 
MOVE DONombreEtements{A6)  ; On sauvegarde le nombre dans le tampon au sommet de la pile. 
MOVEQ  #1,D1 ; Le registre D1 sert de ‘compteur d'extraction’. On y place la valeur 1, ce qui correspond à la 


; Seconde chaîne à trier. 


BouclePrincipale 

MOVE D1,D2 ; Une copie du compteur est placée dans le registre D2. 

ADD D2,D2 : Le contenu du registre D2 est multiplié par 2. Ceci nous donne le décalage entre le début du 
; tableau de variables entières et la variable entière contenant l'index de la chaîne à extraire 
; (rappelons que les index doivent être placés dans le tableau de variables entières par le 
: programme Basic. Les index constituent les ‘numéros d'ordre’ des chaînes), 

MOVE  O(AO,D2),D3 ; L'adresse du tableau de variables entières (A0) plus le décalage par rapport au début du 
; tableau (D2) nous danne l'adresse de l'index, que l'on place dans le registra D3. 

SUBQL #4,SP ; On réserve une plate de 4 octets au sommet de la pile, pour le retour par la routine 

MOVE D3,-(SP) ; 'AdresseEtLongueur de l'adresse de la chaîne extraite. Ensuite, l'index de la chaîne est 

BSRS  AdresseEiLongueur ; empité. La longueur de la chaîne sera retournée dans la pile à l'endroit où est placé l'index. 


MOVE (SP}+.LongChaïneExt(A6)  ; La longueur de la chaîne est placée daris le tampon au sommet de la pile. 
MOVE.L (SP)+,AdrChaineExt(A6)  ; L'adresse de la chaîne est aussi placée dans le tampon au sommet de la pile. 


MOVE D2,D4 ; Une copie du décalage est placée dans le registre D4. 
BouckSecondaire 
SUBQËE #4,SP : Réserve une place pour le retour de l'adresse de la chaîne à comparer. 
MOVE -2(A0,D4),-(SP) : A0+D4-2 nous donne l'adresse de l'index de Ia chaîne à comparer (au ‘premier tour’ de la 
BSRS  AdresseEtLongueur : boucte secondaire, il s’agit de l'index précédent celui de la chaîne extraite). Cet index est 


;empiké eton appelle la routine ‘AdresseEtLongueur'. 
MOVE (SP)+,LongChaineComp(A6) ; La longueur de la chaîne est placée dans le tampon au sommet de la pile. 
MOVE.L  (SP)}+,AdrChaineComp{A6) ; L'adresse de la chaîne est aussi placée dans le tampon au sommet de la pile. 


MOVEML A0-A/D0-D3,-(SP) ; Les registres qui sont modifiés par la routine ‘Pack6’ sont sauvegardés au sommet de la pile. 
SUBQL #2,SP ; On prévoie un emplacement de 2 octets pour & retour du résuitat de la comparaison. 
MOVEL  AdrChaineExWKA6),-(SP) : L'adresse de la chaîne extraire (Chaîne A) est empilée. 

MOVE.L  AdrChaineComp(A6).-(SP)  ; L'adresse de la chaîne à comparer (Chaîne B) est empilée. 

MOVE LongChaineExt(A6).-(SP)  ; La longueur de la claine extraire (Chaîne A) est empilée. 

MOVE LongChaineComp(A6),-(SP) ; La iongueur de la claïîne à comparer (Chaine B) est empilée. 


MOVE #IUMagString.-(SP) ; On empile enfin le ‘sélecteur de routine’ correspondant à la routine de comparaison, 
_Pack6 : Appel de la routine ‘Pack6'. Au retour, ke résultat situé au sommet de la pile est égal à -t si la 
TST (SP}+ ; chaîne A est inférieur à la chaîne B, C si les deux chaînes sont égales, 1 sila chaîne A est 


: Supérieure à la chaîne B. TST (SP)+ positionne les bits Z (zéro) et N (négatif) du registre 
; d'état en fonction du résultat obtenu. 


MOVEM.L (SP)+,A0-A1/D0-D3 ; Les registres retrouvent leur contenu initial (comme avant l'appel de la routine ‘Pack6'). 
BMIS inferieure ; Vers l'étiquette ‘interieure’ si la chaîne extraite est inférieure à la chaîne à comparer. 
MOVE D3,0(A0,D4) ; Si la chaîne extraite est supérieure ou égale à la chaine comparée, on insère l'index de la 
BRAS  SortieBoucleSecondaire ; chaîne extraite dans le tableau de variables entiéres, et dans l'élément suivant celui qui 


; contient l'index de la chaine comparée. On sort ensuite de ia boucle secondaire. 





Inferieure 
MOVE -2A0,D4),0(A0,D4) ; Le contenu de l'élément du tableau correspondant à l'index de la chaîne comparée est placé 
; dans l'élément suivant (décalage vers le bas). 
CMP1 #2,D4 ; Si D4 contient 2, la chaîne comparée était la première chaîne (puisqu'on utitise -2(A0,D4)). 
BNE.S @1 ; Si cæ n'est pas ke cas, branchement sur l'étiquette @1. 
MOVE D3,-2(A0,D4) : Lindex de la chafne extraite est mis à la place de l'index de la chaine comparée. Cette petits 


BRAS  SortieBoucieSecondaire ; manipulation supplémentaire autorise l'emploi du premier élément de chaque tableau, On sort 
; ensuite de la boucke secondaire. 






@1 SUBQ #2,D4 ; Le décalage depuis la base du tableau de varlables entières est diminué de deux pour 
BRAS BoucleSecondaire ; ‘pointer sur létément contenant l'index précédent celui de la chaîne qui vient d'être 
; comparée. 










SortieBoudeSecondaire 
CMP NombreElements(A6),D1  ; On compare le compteur (D1) au nombre de chalnes à comparer. Si les valewis sont égales, 
BEQS Fin ; le traitement est terminé, retour au Basic. 
ADDQ #1,01 ; Sinon, on incrémente ke compteur de 1. 
BRAS  BouckPrincipale ; On va extraire la chaîne suivants. 








Fin UNLK A6 : Abandon du tampon au sommet de la pile. 
MOVEQ  #0,D0 ; Pour signaler à l'interpréteur Basic qu'il n'y a pas d'eneur. 
RTS : Retour au Basic. 






; Cette mutine retoume au sommet de la Pile l'adresse et la longueur de la chaîne dont l'index a été empilé par le programme appelant. 
Index Set 8 ; Oécalage entre l'adresse pointée par la registre A6 et index empilé par le programme. 
Longueur Set 8 : Décalage entre l'adresse pointée par A6 et l'endroit dans la pile où sera placée la longueur. 
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Adresse Set 10 
AdresseEtLongueur 
LINK A6,#0 
MOVEM.L DO-D1,-{SP) 
MOVE Index(A6),DO 
MULU 85,D0 
MOVEQ  #0,D1 
MOVEB 2(A1,D0).,D1 
LSLL #8,D1 
MOVE.B 3(A1,D0).D1 
LSL.L #3,D1 
MOVE.B 4(A1,D0).D1 
MOVE.L D1,Adresse(A6) 
MOVE.B O(Aï,D0),D1 
iSL #3,D1 
MOVE.B 1(A1,D0),D1 
MOVE D1,Longueur(A6) 


; Sauvegarde les registres dont le contenu est modifié par œætte routine. 
: L'index de la chaîne est placé dans DO. 

: On multiplie l'index par S afin d'obtenir le décalage par rapport au descripteur de la HAS 
: chaîne à trier {voir le schéma représentant les descripteurs de charnes et leurs contenus). 
: Les 32 bits du registre D1 sont mis à zéro. 

: Les bits 16 à 23 de l'adresse de la chaîne sont placés dans les bits 0 à 7 du registre D1. 

; On décale le contenu du registre D1 de 8 bits vers la gauche. 

; Les bits 8 à 15 de l'adresse de la chaine sont placés dans les bits 0 à 7 du registre D1. 

; On décale le contenu du registre D1 de 8 bits vers la gauche. 

: Les bits 0 à 7 de l'adresse de la chaïne sont placés dans les bits O0 à 7 du regisre Dt. 

: L'adresse ‘reconstituée’ de la chaîne est placée dans ia pile. 

; Les bits 8 à 15 de la longueur de la chaîne sont placés dans les bits 0 à 7 du registre D1. 

; On décale le contenu du registre D1 de 8 bits vers la gauche. 

:Lesbits 0 à 7 de la longueur de la chaîne sont placés dans les bits 0 à 7 du registre D1. 

: La longueur de la chaine est placée dans la pile. 


MOVEM.L (SP)+,D0-D1 


UNLK A6 
RTS 


Fichier ‘TriLib.Job”’ 


Asm  LlBinit.AsmExec 
Asm  TrilibAsm Exec 
Link  Trilib.Link Exec 


RmakerTriLib.R Finder 


Edit 
Edit 
Edit 
Edit 


Source ‘LiBinit.Asm' 


LIBVER_Resuit EQU 


CR LIBVER_Result(A0) 


MOVEQ  #0,D0 
RTS 


Fichier ‘TriLib.R' 


Trilib.Rscr 

BLIB 

TYPE CODE = GNRL 
LiBinit,1 

R 

TrilibCODE t 


TYPE CODE = GNRL 
Trilib,2 

R 

Trilib CODE 2 


6 


Fichier ‘Trilib.Link’ 


/ OUTPUIT TriLib 
LiBinit.Rel 

< 

Trilib.Rel 

$ 








Pom's n° 26 


; Décalage entre l'adresse pointée par A6 et l'endroit où sera placée l'adresse. ne | 


<= 


: Toutes œs manipulations (transferts d'octets et rotations) sont rendues nécessaires par le 
: fait que les descripteurs de chaînes sont alignés seulement une fois sur deux sur des 

; adresses paires , il n'est donc ici pas question d'effectuer des opérations sur des mots ou 

: des longs mot. 

; Le contenu des registres DO et D1 est restitué. 

: Retour au programme appelant. 





Source ‘Tri ASm’ Index gs 
: 6 + 3 Longueur 
{version ‘tableau de variables) prie Set10 
2 Adresse queur 
Trap _Peck6 $A9ED 48sé 0000 LINK AS.R0 
Ii GgStiNg EOU to «457? coca MOVEML  00-Dt,{5SP] 
2028 co0s MOVE \ndex(A6),D0 
Tampon Set -14 CŒc 0003 MU #5 DO 
AChE: Set Tamoon 7300 MOVEO #0.D1 
LChEx Set 10 1231 0002 MOVE.B àA1.00}D1 
AC Set 8 519 LSLL #aD1 
urC Sat 4 1231 0007 MOVE. B SA1.00).D1 
KreElem Set 2 £iés SEL #ë.D1 
Non tro Set a 1231 0005 MOVE B 4(A1,00)1D1 
VarprChaines Set 10 2D41 O09A MOVE.L D1.A0resse(A6} 
VarprEers Set LOT 1231 0000 MOVE B A1,00)D1 
si69 LSt #6,D1 
4896 FFF2 LINK A6ATampon +251 0001 MOVE.B  {A1,00}1D1 
2062 0U0E MOVEAL  14(A6).A0 2041 0008 MOVE Dilompeaun A6) 
2262 00A MOVEAL 10{A6).A1 4C0F 0002 MOVEML  (5P},00-D1 
3022 ooua MOVE &(AS).00 «es UNLK A6 
5340 SUBQ #1.D0 4875 ATS 
3040 FFF MOVE O0, NbæElem(A6}) 
7201 M@VEO #1,D1 
BoudeFrincipals 
3401 MOVE D1.0e 
D442 ADD D2.D2 
3630 2000 MOVE ©{A0,D2).D4 
598 SUB@L #ASP 
3803 MOVE D3.4Sp} 
6163 BSR.5 Adre 656 Longueur 
3D5F FEF6 MOVE (SP}n UONExI A6) 
2D5F FFF2 MOVE {SP}, AChEx(A6) 
3802 MOVE 02,04 
Boucles Secundaire 
se suBaL m.SP 
‘32730 40FE MOVE -2(A0.04)4SP} 
6156 BsRS AdromelLaquour 
3DSF FrrC MOVE (SPH.LChC AS) 
205F FFFS MOVEL {SP} ACHC (AG) 
487 FOCO MOVEML  Ao-A1000D3,{5P) 
S5 SU8QL ns? 
2P2 FFr2 MOVE. L AChEx(Aë)-(5P) 
2ÉZx FFF8 MOVEL  ACRC{AS],{5P) 
22 FIF6 MOVE LONE A6) (SP) 
I 2R EFFET MOVE LCNC{AG SP) 
3F3C 000À MOVE A\Msg ing. 4 SP) 
A9ED _PedS 
C4 TST {SP} 
ACF 030F NOVEML  {SP}+,A0-A1/00-D5 
cuoc BMiS téian 
3163 4000 MOVE D93,0(20,04) 
6016 BRAS Srte5ncde 
infenñeurs 
3180 40FE 4000 MOVE -2(A0.D4).0(A0.04) 
OC$é 0002 GMPI #2,Dé 
6606 BNE S @1 
3163 40FE MOVE 03,-AA0D4) 
6004 BRAS Srteëade C 
5544 @1 SUuBa #2.04 
Foro BRAS Soucis Secundaire 
SorteBoucke r 
8265 FFFE CMP NdreElerr ,D1 ‘ 
A Ce à PE Table des descripteurs pour 
s2di ADOQ #1,01 ° 
Fe ENS Martel un tableau de chaînes de 
y : : 
= 5 as de caractères (une dimension) 
4E?s RTS Érsssssssasonscsronessonnonnvonnvonavonannautanutnases00np00spsnnr ao e ee veut Û 








Quel que soit le langage que l'onutilise, 
il peut être intéressant d'avoir un 
minimum de connaissances en 
assembleur, ne serait-ce que pour écrire 
des petites routines destinées à pallier 


certaines déficiences du langage 
{traitement trop gourmand en temps ou 
simplement impossible). 


Seulement, le 68000 étant un 
microprocesseur puissant, il offre u n jeu 
d'instructions étendu, autorise souvent 
plusieurs syntaxes par instruction, 
chacune d'entre-elles offrant 
généralement de nombreux modes 
d'adressage possibles. Si l'on ajoute à 
cela la taille des opérandes (octets, mots 
ou longs mots) qui varie en fonction des 
instructions et des syntaxes, l'effet sur 
le contenu du registre d'état, plus 
quelques cas particuliers, on comprend 
qu'il n'est pas facile de mémoriser ce 
qu'il est possible de faire avec le 68000, 
ou plutôt ce qui ne l'est pas (c'est ce 
dernier point qui, souvent, nous oblige à 
faire un réassemblage). 

Il est bien sûr envisageable de consulter 
un manuel de référence du 68000 
lorsque cela se révèle nécessaire, mais 
l'expérience montre que cette méthode 
n'est pas très pratique, l'information 
recherchée étant généralement noyée 
dans d'autres (qui pratique l'assembleur 
et n'a jamais confondu les modes 
d'adressage autorisés pour l'opérande 
source, et ceux autorisés pour 
l'opérande destination ?). 

D'où l'idée d'écrire un accessoire de 
bureau qui permettrait une consultation 
simple et immédiate lorsqu'une 
vérification s'impose. 


Utilisation 


Nous avons voulu cet accessoire aussi 
pratique que possible ; pour cette raison, 
on peut le commander entièrement avec 
la souris bien sûr, mais aussi avec le 
clavier. 





Changement 
d'instruction 


Avec la souris en cliquant dans le 
tableau des instsuctions (l'opération 
n'est prise en compte que lorsque ie 
bouton est relaché). 


Avec le clavier : 


+ la touche rabulation déplace la 
sélection d'une position vers la 
droite ; 

« la touche ‘back space’ déplace ja 
sélection vers ta gauche ; 

* un retour chariot déplace la 
sélection vers le bas ; 

+ un retour chariot accompagné de la 
touche majuscule déplace la sélection 
vers le haut. 


Dans tous les cas, un déplacement hors 
des limites sélectionne l'instruction 
située le long du bord opposé du 
tableau. 


Ces déplacements peuvent aussi être 
obtenus avec les touches fléchées du 
Macintosh Plus. 


La sélection d'une instruction entraîne : 


+ l'affichage de la syntaxe (ou des 
syntaxes, puisqu'il peut en exister 
jusqu'à trois) ; 

+ l'affichage de l'effet de l'instruction 
sur le registre d'état ; 

* l'inversion des modes d'adressage 
valides pour les opérandes source et 
destination (pour la première syntaxe 
s'il y en a plusieurs) ; 

- l'inversion des longueurs valides 
(pour la première syntaxe s'il y en a 
plusieurs) ; 

* si nécessaire, un message signalant 
ua cas particulier (pour la première 
syntaxe..….). 


Changement de syntaxe 


Avec la souris en cliquant sur le 








6S0007S 
Juhen Thomas 


bouton correspondant, de la manière 
habituelle. 


rar —finaro fer lun] (E 
@<YD <AE>,Dn 
© ADD Dn,<AE> 


.W et L seulement. 


Si Source = An : 





Avec le clavier : 


* sur un Mac 128 ou 512 en appuyant 
sur la touche Entrée ; 

* sur un Mac Plus, en appuyant sur 
Entrée où Annulation. 


Les indications fournies par l'accessoire 
sont modifiées en conséquence. 


Le registre d'état 


Pour indiquer l'effet des instructions sur 
les bits du registre d'état, nous avons 
employé la méthode suivante : 


+ case noircie pour un bit positionné 
(mis à 0 ou 1 en fonction du résultat) ; 

+ case grisé pour un bit dont l'état n'est 
pas défini ; 

+ un‘l’silebitest toujours à 1 ; 

+ un ‘0’ silebitesttoujours à D; 

+ une case vide si l'état du bit n'est pas 
modifié par l'instruction. 





Bit V.toujours. à 


î 
n 
H 
H 
i 
À 


G 


H H -Træ  _Copyfits $SA8EC .Ttæ _LineTo S489 
Fichier ; Source .Trap _OisposWindow S$AS14 .Trap M pus 
G 5 , .Trap  _DrewChar SA883 .Træ bo! 954 
F68000.Job S68000.Asm .Træ _DrawContols  $A969 -Træ  _NewFitr $ATE 
.Fræp  _DrawString $ASS4 .Trap  _NewWindow  $A513 

er ce Et INCLUDE  S68000/1.Asm Træ  LEndUpdse  SA923 re | PanRet  SABAZ 
Link  F68000.Link  Fort-DAMover Edit INCLUDE  S68000/2 Asm Ten “Hasfos |A Tæ —PenMode DRE 
END .Trap _FindControl  SA9%6C Tr  _PenNormal  $ABSE 
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Træ __TexMode $a589 
BZ IndMessages(A3).A0 





.Tr@æ  _TextSize $AS8A 821 X-0000000 
Tr _TrakComrol  $A968 BVp Eau Ernest 1 ut Bas @1 | 
Tr _ValidAect  S$A92A By Equ  X0090091000D00000 nie “ei nn EX JC 
BVna Eau O0 Obra D0.@1 an _ 
SrcOr Equ : ste Equ Sans sc s Mo 4$3000,BN15(A3) à eSyniaxe 
nt Eu 2 En # oe 4 ne Move  #41.MnemoCourant{A3} ra  Etau EN 
Re opy Es : Cp Equ  LODTHPHDPHDON ci Lee 2 ; En cas d'action sur une touche?) 
qu aci 400010M4)4D0000 
PatXos Equ 10 BC = &oo! trees: __MatidRect Fe 
geneva Equ 3 BCO Equ ‘KO! 100000000009 Re do LS D der 
monaco Equ 4 Bci E _ValidRect Move MnemoCouram(A3).D6 
Equ 5: qu &0100DUDOD UD D O0 Hd ACA.P7 
Black -  Eow —. _3e1Port ne.S 1 
É En 5 ; ae pour indiquerle numéro des Etats Btst #shitKey,evtMeta(A2) 
top Equ 0 oi cas particules. Movem.L_ (SP}+.03.D7/A1-A4 pe 
left Ed (à 33 Equ  %00100000 Etat cs 4 LA 
mn Equ 4 Equ ‘%01000000 Moveq  #0.00 6 .D7 
right Equ 86 M5g3 Equ ‘%0)100000 Are CE LE 
v Equ 0 Mega Equ %10000000 CmPpi.B  #Tan07 
h Equ 2 Mog5 Equ ‘%10100000 Ferme Beq.S  Druis 
a Equ 106 Movsm.L A3.A4..(SP) CMPLE DARENO7 
Touches: MoveaL A1. ea = HS 
mBuDwnE  Equ Ent Es à En EE dCWindowtAA), ASF) Beg.S SE. ons 
keyDwnEnt Equ 3 es Equ 8 k Bask Spam 4  — Subq 8 “107 
keyUpEvt Equ 4 Tæb Equ 9 ; Tabulation S L sg Beq.S  Gauehe 
auloKeÿEvt Equ 5 CR Equ 13 : Ret chariot S'en AEA SubqB  #1,D7 
updatEvt Equ 86 FG Equ 28 ; Fiche <- ré De Re BeqS Droite 
activateEvt Equ 8 F0 Equ 29 :Fche -> Fe ct SubqB  #1,07 
sat Eu $0 a Eu à à are Haut Aion + Haut 
ettMessage qu $g2 qu d e Bæ ï LA d.- #1,07 
evtMouse Eu $A Ann Equ 27 : Annulation M D BeqS Bas 
evtMeta Equ  $E Ou Equ $100 MoveaL  AO.A2 Bra Etal3 
evMBul Equ $ MoveaL dCtiWindow{A4),A3 Bas  : Flèche bas ou Retour chariot 
accEvent Equ $40 ee Pr POLE la bass du tampon Move.L  A3,{(SP) Addq 44,06 
accCursor Equ  $42 k Die gra 6 PA Tanpes aire _SetPort Cmpi  +#23,D6 
activeFiag Equ 0 HandsesCil Equ WindowSes Move CSCode(A2}.00 Ble.S SelecionTouche 
shitkoy Sn MræmoCourant  Equ HandissCiie12 Cmpi #accÆvent.D0 Sub #84,D6 
poñRec Equ $10 AE = er es plu sue Dem 
Windowkind Equ $C OrapeauCurs  Equ BiMapkons+14 Be CR nt a jé ME 
WindouSlze Equ æc NumermSynaxe Equ DrapaauCurs 1 Bra Etats Tat DS 
noGrowDoPrioc Equ 4 HardieCÿ Equ_NumeroSyntaxes1 Bge.S  SsectionTouche 
radioButProc  Equ 2 Poshon Equ HandgeQ4 Evenement Add #84,06 
BesmOurmor Equ ! méMessages Eau Posiion+& MoveaL  CSParam(A2),A2 BraS  SeledionTouche 
contriFlect Equ se ua Equ tadMessages+3 Move EvNum(A2},00 à 
onriVis 2 s10 IndSources Equ BowonCouram+1 Cnwi amButDwnE DO re die 
dWrdou E IndDestinations Equ IndSourceer12 Beqs Contenu Seal sis 
qu $1E NICCR Equ_ImDestinations+ 12 Cp MeyDwnEvt.D0 pe 
dCtiRafNum Equ sie : And #3,D7 
IndLongusur  Equ buiCCR+6 Beq Touche 
CSCode Equ $S1A Ors2 CCA Equ Indlongueur+3 Cmpi sautoKeyE 1.00 cu +2,07 
CSParam Equ  $1C CodeCCA Equ OmpaaCCR+1 Beq Touche A56 Fr cie 
TempReo Equ  $9FA NbreGctels  Equ CodeCCR+2 Cmpl_ fupdaiEn.DO BraS  SdeclonTouche 
ca Equ  $200 Beq Mise. Jour f & 
Debut Cp #activateEvt,D0 Drohe  :Fléche -> ou Tabulation 
: Equialences qui seront utilisées pour De sao0 Beq  Aciva #105 
; Indiquer les modes J'adressage De 0 Bra Etats Move D6,D7 
Lautorisés : PasM = Pas da Mode De S14A And) #3,D7 
: d'adrænags, M 1= M ode t {Dn)... De 0 ; Cherche l'emplacement où a eu lieu le ‘cic’ rh Selection Toucle 
PasM Equ  LODARPANPOOU De Ouvre-Debut Contenu ne ssh 
Mi Equ  X0000UONONN Dc Etat-Debut Pea  EvMouselA2) Solscionfoucte 
me Equ %0WOOOOMO 10 0c Acion-Debut _GlobsiToLocal Move MnemoCouran{A3).-(SP) 
M3 Equ  K0000000000000100 De Etat-Debut Cv -8P) Move Bt15(A3}.D7 
M4 Equ 000000000000 1000 De Forme-Debut Move.L  eMMouss(A2}, (SP) of D7.(SP) 
Ms Equ  ‘%0000000000010000 AMP Pea AsctMnemo TS SeBcnMnemo 
Ms Equ %00D0000000! 00009 DCS  7.68000/8' _PtinRect Move D6:MnemoColrar(Ag) 
M7 Equ %00000000D! 000000 Te (8P)+ Move D6. (SP) 
M6 Equ KO0000000010000000  CUV1® Bees  @2 a D7.(SP) 
Mo Equ 0000000 100000000 Movem.L D3-D7/A1-A4,4SP) Move  MnemoCourait{A3),00 Bsr Select onMnemo 
M0 Equ K0000001000000000 MoveaL Ai, Bar ZoneMnomo ES Jrahament 
M1 Equ %0000010000000000 Tstt dEUWindow(A4) Cr MnemoCouraniKA3),D0 Bra Etats 
M12 Equ %000D100000000000 Bne Etais Beq.S  @1 TrBoutons ; Entrée ou ‘Annulation 
TouM Equ %0000111111111111 Subq.L  #4,SP Bs Trakement Movs.B  BoutonCouramt(A3}.D7 
Move.l  SP,{SP) Bras @1 BmLs  @1 
; Pour hdlquer les longueurs anorisées : GetPort @2 Move.B  BoutonCourant(A3),D6 Mowæ D7,D5 
; A _B Adressage d'octets, A_Wa= MoveL  #NbreOctets,DO BiniS  ®1 Andi.B  #$30,05 
; ad'esaags de mots. _NewPtr,clear Cr-(SF) Ex Ds 
A 8 Equ  X0001 Beg.S  Possbie Movel  EvtMouse{A2).-(SP} Lsr #4,D5 
AW Equ ren ne Move #7,{SP) Movet  A3.-(SP) Andi e$0003,D7 
AL Equ _K01000000000a000 —SYsB00p Pea  Han#Ci(3) AGdq  #1.D7 
ABWL  Equ  %013100000D00000 Se encontre CP, 007 
Possible st (SP)+ Ble.s  ®2 
MovsaL AO.A3 BegsS  ®1 Move: #& 
; Pour l'elfet Ses inarucilon sur le ragiatre Subq.L #4 à Le 
: d'étet : BXp - Bit X positionné, BNi = BRN Move.L te Fe AUS il A ue 
sindélini B2na BH Z non afecié ne on NUE nr OR 
an ove. ouse(A2).(SP) 
Bxp Equ ‘XOOODOD0000UUUUD Pea Tire CkL {SP) ; Rout L 
£ À n8 de miss à jour, Appele tous les 
BXi Equ  %X00000UDUDOUUD 1 Move  #Otil-[SP) _TrackControl : sous-programmes d'affichage 
BXna Equ %0000009900000010 Move #rmGrmowDocProc,-(SP) Tst (8P}+ Mise 
BMO Equ 000000000011 Moveq.L 4#-1,D0 Begs @1 Fr. 
8x1 Equ 000000000000 100 MoveL  D0.{SP) Subq  4#4,8P Move.L As) 
BNp Equ  LODHWHUDOU Move  #Oui-{SP) Move.L HandieCtKAS), (SP) MoveL (SP) 
BN Equ %000000000000 000 Chi {SP} GstCReiCon a (SP) 
GAna Equ ‘%00000000000 10009 _NewWingow Move D6,D5 pe Li Ve 
BNQ Equ 000000000001 1 000 Setport AndiB  #$30,05 AM EREUSE 
EN! Equ … #0000000000 190000 Novel  A3,dCiWindow(As) Em DS D tn 
8h Equ  X000000000000000 Move  DotReiNum{A4) | Lsr #05 = sondes 
63 Equ  #000000000! 000000 WindowiGnd{AS) And #$0003,D6 ne Fe 
BZna Equ X0000000010000000 Bsr Boutons MoveL  (SP)+D7 pl bn 7 A 
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[3 
el 


Bar 7) Affichelco ne 

Ber Syntaxeinstruction 
Ber AfflcheMossage 
MoveL  A3,(SP) 
_EndUpdate 

Move #58000,Bt15(A3) 
Bra Etats 


; Fenêtre active av lnactive, 


Active 
Bist dactiveFiag,evtMBut(A2) 
BeqS  @1 
_InliCursor 
Cir.B DrapeatCurs (A3) 
@1 Bra Etata 


; Po ur le changeme nt de la forme ducurseur 
: entonction de sa position. 


Curseur 

Bufler Set 4 
Link A6#Bitfer 
Pea Buffer(A6) 
_GetMouse 
Move.L Bufar(A6).D4 
Move.B  DrapaauCurs(A3},D6 
Moveq _ #0,D7 
Ck SP) 
Move.L D4,-(SP) 
Pea PortRect(A3) 
_PtinRect 
Tst (SP}+ 
BnesS  @1 
TeLB D6 
Beq.S @2 
MoveaL (A5).A0 
Pea arow(A0) 
Bra.S @3 

@1 Moveqg  #1.07 
Ck SP) 
Movs.L  D4,-(5P) 
Pea RectMnemo 
_PtinRsct 
Tst (SP}+ 
Beq.S @4 

@6 Cnp.B D7,06 
Beq.S @&œ2 
Pea Curseurt 
Bra.S à | 

@# Lea HandiesCti(A3),A4 
Moveq  #5.D5 

@7 MovsLl  0(A4.05),A0 
Move.L  (A0),A0 
Tai convriVis(A0) 
Beq.s ®@s 
Ck -(SP) 
Move.L D4,-(SP) 
Pea contrReci{AO) 
_PtinRect 
Tst (8P)+ 
Bre.sS @6 

@5 Subq #4,D5 
Ages @7 
Moveq #2,D7 
orp.B D7,0$ 
Beq_S @2 
Pea Cumeure 

@3 _SetCursor 
Move.B  D7,DrapeauCurs(A3)} 

@2 Unk A6 
Bra Etats 

; A Aage des mblsaux. 

Tabieaux 
Moveq  #21.D4 
Moveq  #1,05 
Moveq 42,06 
Move #162.07 

@1 Move DS, -(SP) 
Move D5,-(SP) 
Move D7.-(SP) 
Bsr Lgnekorizontale 
Add #12,05 
Dbra D4,@1 
Moveq  #4,D4 
Moveq  #1.D5 
kove #253,07 

@2 Mow 06,-(SP) 
Move D5,-(SP) 
Move D7,-(SP) 
Bs+ Ugne Verticale 
Add #40,D6 
Dbra D4,@2 


Moveq  #9,D3 
Bsr Tatieau2 
Moveq 857,03 
Ber Tablesine 
Lea Modes.A4 
Sf (SP) 
Move #173,-{SP) 
Move  #14,{SF} 
Psa (A4) 
Ber AfflcheChaine 
Sf -(SP) 
Move #236.-(SP) 
Move #14-(SP} 
Pez (A4) 
Ber AfficheChaine 
Ber TableauxS 

: Bits Cétat 
Lea Bite.Ad 
Moveq  #4,04 
Move #176,D7 

@3 khtove D7.-(SP) 
Move #236,-(SP) 
_MoveTo 
Move.B  (A4)+.D0 
Ex D0 
Move D0.-(SP) 
__DrawChar 
Adi #22,07 
Dbra D4.,@3 

: Aftichage des codes mnémoniques. 
Bar PoliceMonaco 
Moveq #0,D7 
Moveq  +#20,05 
Moveq  #11,D4 

@4 Moveq  #5,D3 
Moveq  #3,D6 

@5 Ber.s AdresseMne mo 
Move.B  (A4)-(SP] 
BgtS @6 
Andi.B  #$7F.(A4) 
AddiB  #2(44) 

@6 Move D7,00 
Lsr #1.D0 
Cre MnemoCourant(A3),D0 
Seq (SP) 
Move D3.-(SP) 
Move D4.-(SP) 
MoveL  A4,-(SP) 
Ber AfficheChaine 
Move.B  (SF)+.(A4) 
Addq #2,07 
Add #40.03 
Dbra D6.®@s 
Add #12,04 
Dbra D5,@4 
Bra SutteTableau 


: Pour obtsnr l'adresse de base des 
: intormasions Sur l'instruction numéro N. 


AdresseMnemo 
Move TableMnemo(D7),D0 
Lea TableMnemo(D0).44 
Rts 

TableMremo 
Dc “Abcd- YableMnemo 
Dec xAdd-TableMnemo 
Dc xAdda-TableMnemo 
Dec xAddrTableMnemo 
Dc xAddg-T ableMnemo 
Dec xAddx-TableMnemo 
Dc XAnd-T ableMne mo 
Dc «Andi-TableMnemo 
Dc XAndC-TableMnemo 
Dc XAnGS-T ableMnemo 
Dec xAskTabieMnemo 
Dc xAsr-TableMnemo 
Dc xBoc TableMnemo 
Dc xBchg-TabieMnemo 
Dc X8Ch-TableMne mo 
Dec xBra-TableMnemo 
Dc xBset-TableMnemo 
Dc xBsr-TabieMnemo 
Dc xBist-TableMremo 
Dec xChk-TableMnemo 
Dc xCir-TableMnemo 
Dc xCmp-TableMremo 
Dec xCmpa-Table Mnemo 
Dc xCmpi-TableMnemo 
Dec xCmpm-Table Mnemo 
Dc xDBcc-TableMriemo 
Dc xDive-TableMnemo 
Dec xDWu-TabisMnemo 
Dc xÆ0t-Table Mnemo 
Dec xEof- TableMne mo 
Dc rEorC-TableMnemo 
Dec xXEorS-TableMmemo 
Dec xEx9 TabloMnemo 
Dec xExt- Table Mnemo 


CÉRÉERÉÉERÉESLSÉEÉLEELLIÉSIÉÉEI 


00 
Cl 


CRÉFELREEEEETECEEETET: 


xl-TableMnemo 
*xJmp TableMremo 
xJer-T ableMnemo 
XLeæ TableMnemo 
xLink-TableMnsmo 
xistTableMrien:o 
xLer-TableMnemo 
xMove-Tablehinemo 
xMovC-TableMnemo 
xMoves-TableMnemo 
xMovU-TableMnemo 
xMovfS-TableMnemo 
xMoutS-TableMne:no 
xMovem-TableMne mo 
xMovep- TableMnemo 
xMoveg-TableMnemo 
xMuis-TableMnemo 
xMUIU-TableMnemo 
xNbcd-TableMnemo 
xNeg-T abieMnemo 
xNegx-TableMnemo 
xNop-TableMuerr:c 
xNot-Table Mnemo 
xOr-TableMne mo 
xOri-TabieMnemo 
xOriC- T'ableMnemo 
xOnS- TabieMnemo 
xPea-TableMnerno 
xReset-TableMnemo 
xRof-TableMnemo 
xRor-TableMnemo 
xRox- TableMnemo 
xRoxr-TableMnemo 
xRts-TableMnemo 
xRU-TableMnemo 
xRts-TableMnemo 
xSbOd-TableMnemo 
xScc-TebleMriemo 
xS\op- TableMne mo 
xSub-TableM nemo 
xSube-T ableMnemo 
xSubt TableMnemo 
xSuba-TableMnemo 
XSubx-TableM nemo 
«Swap-TableMnemo 
xTas-TableMnemo 
xTrep-TableMnemo 
XTrepv-TebisMne mo 
xTet-TableMnémo 
xUnk-TableMnemo 


SuiteTableau 
Move #256,07 
Move #298,D6 
Move 07,(SP) 
Move (SP}-(SF) 
Move D6,-(SP) 
Bar Ligne Verticale 
Move #278.D5 
Move D5,-(SP) 
Move D7,-(SP) 
Move D6,-{SP) 
Bar Ligne Verticale 
Moveq 43,04 
@7 Move D7,-(SP) 
Move D6,{SP) 
Move D5,{SP) 
Ber LigneHortaontaie 
Subi #14,D6 
Dbra D4,@7 
Affichage .B, W et .L. 
Bsr Pol'iosChicago 
Lsa Long, A4 
Moveq  #9,D5 
Move D5,D3 
Addq #4,D7 
Move #268.08 
Moveqg  #2,D4 
Lea IndLongueur(A3),A2 
@8 Move.B  O(A2,D3),-(5F) 
ktove D7,(SP) 
Move D6,-(SP) 
Pea Q(A4.D5) 
Bar AficheChaine 
Addq #1.DS 
Adda #3.05 
Add #14.06 
Dbra D4@s8 
Re 
Tabac 
Moveq  #19.,D7 
Move #158.D5 
Move #221.D6 
Moveq  #12,D4 
@1 Move DS,-(SP) 
Add D3,(SP) 
Move D?,-(SP) 
Move DS.-{SF) 
Add D3.(SP) 





Ber LigneHortzontaie 


Addi #16.D7 
Dbra D4@1 
Subi #16,07 
Moveq  #19,D4 
Move 0S.-{(SP) 
Add D3,(SP) 
Move D4.-(SP) 
Move 07.-(SF) 
Bsr UlgneVenicale 
Move D6.-(SP) 
Add D3,(SP) 
Move D4,-{SP) 
Move D7.{SP) 
Ber Ligne Verticale 
Mova.L #$00020002,-(SP) 
_PenSize 
Lea Tempfiect,A4 
Move #1.(A4) 
Move D5.lett(A4) 
Move #18.botiom(A4) 
Addq 11,06 
Move D6,right(A4) 
Add D3,laft(A4) 
Add D3:right{A4) 
Move.L A4,-SP) 
_FrameRect 
_PenNormal 

; Affichage des modes d'adressage. 
Bar Police Chicago 
Lea Modes, A4 
Lez IndSources,A2 
Move #170.D6 
Moveq  #32,D7 
Moveq _ #11.D5 
Movoq  #0,D4 
Moveq  #0,D2 

@2 Tst 08 
Brie.S @3 
Move.B  O(A2,02),-(SP} 
Bra.S @+ 

@3 Move.B  12(A2.02}-(SP) 

@4 Move D6,-(SP) 
Add D3.SP) 
Move D7:-(SP) 
Pea 13(A4,04) 
Ber AfficheChaine 
Move. B  13{A4,D4),00 
Ext Do 
Addq  #1.00 
Add DO.D4 
Add #16,D7 
Dbra DSs,@2 
Ris 

Tableaux 
Move.L  #500020002,-(SP} 
_PenSite 
Lea TempRect, A4 
Move  #223,(A4) 
Move #168,leh(A4) 
Move #249.bottom(A4) 
Move #279,rigM(A4) 
Move.L A4,-(SP) 
_FrameRect 
Moveq  #3,00 
Move.L D0,-{SP} 
_PenSize 
Moveq  #3,D4 
Move #189,07 

@1 Move D7, (SP) 
Move #225,-(SP) 
Move #238,-(SP) 
Bsr Ligne Verticale 
Add #22.07 
Dtbra D4,@1 
_PenNormal 
Move #241,(A4) 
Move  #188,Rf(A4) 
Move  #a64.botiom(A4) 
Move #279:rignt(A4) 
MoveL A4,-{SP) 
_FrameRect 
Moveq  #3.D4 
Move #190,07 

@2 Move D7,-(SP) 
Move #242,(SP) 
Move #252,-(SP) 
8ar LineVerticale 
Add 622,07 
Dbra D4,@2 
Rte 

Affichelcone 
MoveL A4-(SP) 
Lsa BhMaplcone({A3),A4 
Move #4,4A4) 
Ck.L @(A4) 
Move.L #$902D0020,19(A4) 
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Lea lone,A2 
Move.L A2,(A4) | 
sont FES (ea = 
Movea. 
Adda.L  #2,M4 ADDX rs NN 
Move L  A4.-{SP) Mulu #14,00 
Poa BrMapicono+8 (A3) [AND 1 >CIAND 1 >SIRS Add oiEn ; "> 
pe Reco Bce _JecHo [scur Move DO Tampons tt 
Crl 45" IBSET ]BSR  ]BTS Add  #19.01 
_CopyBlits [CLR [CMP | Move DI,Tamponsrighi[AG) 
Les BRkMapicons{A3), M4 [CHPH | DBcc | Add #11.00 
Move #14,4(A4} Move D0,Tampons:bonom(A6) 
Ckl  6{M) [EOR |EORI | TstB  Diinven(AS) 
À 02000 7006f. Bne.S 
an IEXG _JEXT | Ce 
Move  A2(A4) JSR __JLER | Bas @2 
Move  A4.-(SP) ILSR | [MO U E | C @®1 Move #PaXor,-(SP) 
Movea.L A3.44 @?2 _PenMode 
Addaq.L "2,44 [MQUE LU ]MOUE <S] MOVE > S Pea Tampon(AS) 
Move.  A4;-(SP) IMOUEP [MOUEQ [MULS _PainiRect 
Pea BhMaploone+6(A3) INBCD [NEG | NEGX _PenNormal ” 
Pea RecDestPome Movem.L (SP}+,00 
Cr -(SP) NOT __]OR Jon! | Unk A6 
Girl  -(SP) (ORI>S [PER  [RESET [G Move.L ii 
Ro ea Bon [Ro [ox EN? 
Ris IRTR | R [SBCO | 
; Rouine pour vleuaiiser l'ettet d'une 
; Inkilalisation des boutons de contrôle, STOP [SUB _ [SUBA [SUBI | : Instruction sur ls registre d'état. lifaut, 
Boutons [SUBQ | SUBX [SUAP__ÎTAS | ; avan l'appel de La routine, smpliss un mot 
Moveq  #0.D7 PAP ; de 18 bis contenant, dans le poids fort, le 
Moveq  #2,08 ; numéro dubh (0 pour X 1 pour N...) e1 
Lea Tempflect A4 O ROL Dx,Dy ; dans le poids laible l'eflel (0 paur 
M 4#256,(A4 Ê ; Positanné, 1 pou indéf ini). 
A AOL #<donnée»>,D cc 
Ck ielt(A4) PostionsBhs 
Move #268.00ñom{A4) ROL <RE> Paranumero Set 9 
Move #14.rigm(A4) ParamPoshion Set 8 
@1 B«xS  Boutorg? S e 
Addq  #1.D7 Movem.L_D0-D1.45P) ; un des modes d'adressage valides. Le PET | A 
Add #15.(M4) Move Parametre(A6),D0 : numéro du mode doù être empié (de 0 à Toubors0 Set 3 
Add #15.botiom(A4) Bdr #Bitinvan,D0 ï 11) avec en plus le bi1 15 À O pou’ une mise Tout Set 4 
Dbra D6.&1 SN DrinvenK{AS) :à Jour. à 1 pour le takement mrmal : ainsi Link A6.#Tampon 
At Move D0,D1 : quels bkt14 qui doiâtire à 1 el s'agit de Movem.L D6-D7,1SP) 
Boutone2 An& #01 :l opérande destinatlon. Br PolicæCNMcago 
Suba  #4SP Lr #2,00 SelectionMode Move.B  ParamNumero{A6),D7 
MovaLl  AS.-(SP) Muu  #12.00 Drnver Set -2 Ext 07 
Pea TempRea Addq 43,00 BaOestination Set 6 Mu 422,07 
Per: UN Fmarere Move DD, Tampon+top{A6} Bitlnvert Set 15 Add 9170.07 
cit 4SP) Add #9,D0 Param Set 8 Move D7,Tampon+ieit(A6) 
Ci 4SP) Move DO, Tampon+bonom(AG) Tampon Set  -10 Add #19.07 
Move  #1.{SP) Müu #40,D1 Link A6,# Tampon Move  D7,TamponsrigM{A6) 
Move #radioButProc,-(SP) Addq  #4.D1 Move. 00.{SP) Move 1243, Tanpan+top{A6) 
Move.L  D7,-{SP) Move D1,Tampon+ieh{A6) Move Param{(A6).D0 Move #252,Tampon:butiom (A8) 
_NewControl Add #37,D1 Br #Bhinvert.D0 _PenNorma! 
Lea HandlasCti(A3),A2 Move Di,Tamponerigh{A6) SNE Drinvert(A6) Movea.L {AS).A0 
7. FE 2 TstB  Drinven{AS) Ext 00 Move.B  ParamPostion(A6).D7 
2 L Bne.S 1 Muiu #16,00 Ext D7 
a {SP)+,0(A2,D0) Move #FatCopy.-(SP} Add #21,00 Bne.B @i 
BraS  @2 Move  D0,Tampon+top{A6) Pea Black(A0) 
@1 Move #PaXor,-(SP) Add #13,00 BrasS @2 
; La routine 'NumeroMnaemoSouris' retourne @2 _PenMode Move D0,Tampon+bottom(A6) @1 Cmpi #indefiri,D7 
; au s0mmet de la plis da numéro de Pea Tampon(a6} Move _#170,Tamponsleft(AS) Bne,sS  @3 
; l'instruction ‘diquée', ou $FFXX si le ‘cilc” a _PainiRecl Move 9220,Tampon+right(AS) Pea Gray{A0} 
i eu Heu hors du tableau de aéiection. _PenNormal Btet #BliDestination.Param(A6) BraS @2 
NumeroMnemoSouris Movem.L (SP)+,00-01 Béq.s @3 @3 Pea White(A0) 
Parametre Set 12 Unk A5 Move 457,00 @®2 _PenPal 
Movem.L DO-D1,-(SF) MoveL  (SP}2(5P) Add D0,Tampon+left(A6) Pea Tampan(AS) 
Cr -(SP) Addql #2,5P Add D0,Tampon+rght{A8) _PainiRect 
Move.L eviMouss(A2),-(SP) Rts @3 TstB Drinven{AS) Cp #Toujours0,D7 
Pea RectMremo Bnes @1 BmiS @4+ 
_PtinRect ; Routine uülisée en cas d'actions dans ja Move #PatCopy,-(SP) Move D7,06 
Tst (SP}+ ; zone des instructions. 8ras @2 Move Tampon +buriom(A6),D7 
Seq Ennmetrels) ZoreMeru @1 Move  æPatXor,{SP) Swæp D7 
Beqs  @1 Move m.L a ol @2 _PenMode Move Tampon+kft(A6).D7 
Move  eviMouse+v{A2).D0 @2 Subq.Ll #2 Pea Tampon(AË) Ada 45,07 
Subq #1.00 Gsr NumeraMremoSouris _PainiRect MoveLl  D7,(SP] 
Extl O0 Move (SP}+.D0 _PenNormal Movite 
Diw #52,D0 BmLS @3 — Move.L  (SP}+,D0 Crpi aToupus1,06 
Lsl #2,00 @1 Cp MremoCouran (A), Code 16 Sens @5 
Move  ewMouse+h{A2}.D1 Beqs  ®3 Move.L  (SP)ASP} Move #45) 
Subq  #2.D1 Move MnemoCourmK A3) {sp} AddqL #2.5P Bas  @s 
Eul D1 Move BR15(A3).D1 Frs @®5 Move #1{SP) 
Du s40,D1 Or DSP} @6 _DrawCher 
AGd D1.00 Bor Son CON Te mel ; Fonctionnement identique à oslul de @+ Movem.L_ (SP)+,D6-D7 
Move  D0,Parametre(sF) Move  D0.MmmoCara(A3) ! seledionMnome ee cette fois pour la _PenNor mal 
@1 Movem.L (SP}+.D0-Di1 Move  D0.(SP) ! sélection des longueurs valides loctet, Unk AS 
Ry Q DSP} : mot et long mot), Move.L  (SP},2(SP) 
: La coutne "Se cilonMnemo' met en œ ou L rie os SelectonLong ss #2,SP 
: inverse l'instruction selectlonnée. Le 3 na Éd a 
! de : x LÉ n 
: numéro de l'instruction doit être empilé Ta (SP) E Sa + : hote PER re 
ave cenplus le bi + 5 à 0 pourune mise à éramere et ; . 
: Jour, A 1 pour le traïtement normal Beqs  @4 Tampon Set  -10 ; caches || taut empiler, dans l'ordre, un 
À ve : Pea evMouse(A2) i AGET, ; drapeau à 0 pour ur affichage normal et à 
SelectionMriemo _GstMouse Le ,- Dent ; SFF pour un a fichage en Inverse, la 
Drinver Set 2 Bras @2 ovem.L DO-D1,-{$P) Do ; POshion dans la fenêtre (x.y), et l'adresse 
Bfinver St 15 @4 Movem.L (5P)+,D0.D1 Move Farametre(As). ; de la chaine à affictrer. 
Parametre Set 8 Ris 8air #Bitinven,D0 ù : 
Tampon Set -10 SNE Drinvert(A6) AfficheChaine 
Link A6,#Tampon : La routine ‘Selection Mode" met en inverse Move #256,D1 AdresseChaine Set 8 
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7 
Coordonnees Set 12 
Drapeau Set 18 
Link A6,40 
Movem.L A2/D2,-(SP) 
Tst Draæpeau(AË) 
BeqsS @1 . 
Move #SrcXOr,-(SP) 
Bras @2 
@1 Move #SrcOr.-(SP) 
@2 _TextMode 
MoveL  Coordonnees(A6),-(SP) 
_MoveTo 
MoveL  Adre seChaine(A6),-(SF) 
_DrewBtring 
Movem.L (SP)+,A2/D2 
Unk 
Move (SP)i0(SP) 
Add #10,SP 
Ris 


; Routhe pour tracé de lignes horizontales 
; cu vetticakes 


LigneHorizontals 
Tampon Set -2 
X_1 Set 12 
ÿ_o0 Set 10 
xX_2 Set 8 
Link A5,# Tampon 
st Tarnpon(A6) 
Bras Lignes 
LineV'ertioale 
X0 Set 12 
Y1 Set 10 
Y2?2 Set 8 
Link A8,#Tampon 
ST Tampon(A6) 
Lines 
MoveL Y_O0(A6).-(SF) 
_MoveTo 
TetB  Tampon(A6) 
BeqS  @1 


Move  X_O(A8).-(SP) 
Move  Y_2(A6).(SP) 


Bra.S @2 
@1 Move X_.2(A6),-(SP) 
Move Y_O(A6).-(SP) 
@2 _LineTo 
Untk A6 
Movse.L  (SP).5(SP) 
Addq #8,SP 
Rte 


; Traïtemerr cormécuti à u n changement de 
; code mnémaniQque. 


Traitement 
Bars Syntaxelnetruction 
Bet CorflgBoutors 
Paa RecCortroles 
_ValidRect 


Ci.B NurieroSynlaxe{A3) 
Bar.S AfficheMsessage 


Ch 06 
ST DrapeauCCR{A3) 
Bsr Indications 

@1 Ris 


: Aïtichage des messages pour les cas 
; particullers. 


AfficheMess age 
Bist #5,BotrorCourani(A3) 
BresS @2 
Pea RectSyntaxos2 
_ErsseRect 

@2 Lea indMessages{A3).A4 
Move B  NumeroSyntaxe(A3),D7 
Ed 07 
Move.B  O(A4,D7),D6 
Bsq.S @1 
Move dgenava,-{SP) 
_YTextFont 
Move #9. (SP) 
_TextSize 
Move.L  #901270012,-(SP) 
_MoveTo 
Subq.B  #1.D6 
Bne.S ®3 
Pea Moi 
Bras @4 

@3 Suba.B #1.06 
Bne.S @®5 
Pea Me 
Bras @4 


@5 Swbq.B #1.06 


Bre.s @8 
Pea M9 
Bras @4 
@6 SUB #1D6 
Bne.S @7 
Pea Mg 
Bras @4 


@7 Pea MgS 
@4 _DrawString 
@1 Fu 
; Afichage des syntaxes. 
Syntacelnsiruction 
Move MnemoCouraat{A3},07 


Add D707 

Bsr AdresseMnemo 
Moveq  #0,D4 

Move.B  (A4).D7 

Btst #7.07 

Beq.S @1 


Moveq  #2,D4 
And! 457F.D7 


Addq #2.07 

@1 MoveB 1(4407),05 
Ext D6 
Move D6.-{SP} 
Move.B  (A4)-(SP) 
Move.L  A4,-(SP) 
Sub 04,07 
Move.B  D7,(A4) 
Bar Polioæ Chicago 
Move #PetOr,' (SP) 
_TerxtMode 
Move #266,D5 
MoveL  A4,03 
Add D4,D7 
Lea 2(A4,D7).A4 
Lea IndMessages(A3),42 
Moveq  #0,D7 
Pea RectSyntaxes1 
_Eraseheet 
Pea RectSyntaxas2 
_EraseRect 

@2 Move  #18.-(SP) 
Move DS..(SF) 
_MoveTo 
Move.l  D3.-(SF) 
_DrawString 
Move.B  O(A4,D7),D4 
MoveB  D4,D9 
Andi.B £$£0,D0 
Ler.B #5,00 


Move.B  D0,0(A2.D7) 
Andi #$1F D4 


@4 Bar AcresseSyntaxe 
Pea (A0) 
_DrawSiring 

@3 Add #15,05 
Addq #1,D7 
Dora D8.@2 
Move.  (SP}+,A4 
Move B  (SP}+,(A4) 
Move (SP)+,06 

@6 Fu 


: Pour trouver l'adresse de base des 
;: Informations sur Chaque Instruction. 


AdresseSyntaxe 
Add D4,D4 
Move  TabieSyrt{D4),D4 
Lea TableSyn{D4),A0 
Rte 

TableSynt 
D Sy0-TableS ynt 
Dc Sy1-TableSynt 
Cc Sy2-TableSynt 
Dc Sy3-TableSynt 
Dc Sy4-TableSynt 
Dc Sy5-TabloSynt 
Dc Sy6-TableSynt 
Dc Sy7-TableSynt 
Dc Sy8-TableSyn 
Dc Sy9-TabteSynt 
Dc Sy10-TableSynt 
Dc Syti-TableSynrt 
Dc Sy12-TableSynt 
Dc Syt3-TableSynt 
Dc Sy14- TabieSyit 
Dc Sy15-TableSyré 
De Syt6TableSynt 
Dc Sy17-TableSynt 
Oc Sy18-TableSynt 
Dc Sy19-TableSÿrt 
Dc Sy20-TableSyr4 
Dc Sy21-TableSyn 
Dc Sy22-TableSyn 
Dc Sye3-TableSyn 
Dc Syè4-TableSyrn 
Dc Syès-TableSyrt 


Dc Sy26-TableSyrt 

Dc Sy27-FableSynt 

Dc Sy28-TableSyr 

Dc Sy29-TableSyrt 

Dc Sy30-TableSyrt 

Dc Sy31-TableSyn 
: Police Chicago 12 points. 
PoliceChicago 

Ok -{SP) 

_TaxtFont 

Move #12,-(SP) 

_TextSize 

Ris 


: Pollcs monaco 9 points. 
PollceMonaca 
Move #monaco.-(SP) 
_TextFont 
Move #9.-(SP) 
_TextSize 
Ris 


; Configurations des boutons aprés chaque 
: changement de code mnémonique. 


ContigBoutans 
Tst 08 
BneS  @1 
Move.B  #580,BoutonCourart(A3) 
Lea HandiesCtl(A3).A4 
Moveq  #2,D7 
Moveq  #9.05 
@2 MoveL  O(A4,D5}.-(SP} 
_HideControt 
Addq #4,05 
Dbia D7,@2 
Fu 
@1 BersS Boutoni 
Lea HandiesC1KA3),A4 


Moveq  4#4,D7 

Bar.S Bouton23 

Subq 41,D6 

Bne.S @3 

#$10,BoutonCourarit(A3} 
Move.L  HandiesCtl+8{A3),-(SF) 
_HideControl 
Rte 

@3 Move.B  4#520,BouknCouram(A3) 
Moveq  #8,D7 
Ber.S Bouvton23 


Rte 
Bouton23 
Subq #2,5F 
Move.L  O{A4,D7)}-(SP) 
_GetCtiValue 
Tst (SP)+ 
Beq.S @1 
Move.!  O(A4,D7),-(SP) 
Cr (SP) 
_8etCtiValue 
@1 Move.l  OfA4,D7),-(SP) 
_SñrowControl 
Ris 
Boutont 
Subq #2.8P 
MoveL  HandiesCiKA3).-(SP) 
_GaetCtiValue 
Tat (SP 
Bne.S @1 
Move.L HandlesCti[{A3).-(SP) 


Move #1,-(SP) 
_SetCtiValue 


@1 MoveL  HandiesCti(A3),-(SP) 
_ShowControl 
Are 


; Affichages des indications : modes 
; d'adreesage autorisés, registre d'élat at 
; longueurs permises. 


Indicatlong 
Move MasmoCourant(A3},D7 
Add D7,D7 
Bar AdreseeMnemo 
MoveB  (A4),07 
Btst #7,07 
Beq.S @1 
Andi.B  #$7F.D7 
Addq #2.D7 

@1 Addq #1.07 
Ext 07 
Add.B 0(A4,D7).,07 
Addq #4,07 
Lea O(A4,D7),A4 
Move A4.00 
Btst #0.00 
Beg.S  @2 
Adda.L #1,M4 

@2 Move -2(A4).CodeCCR(A3) 
Lel #2,08 
Move.L O(A4,D5).D7 


@4 Move 


@3 Ats 
IndiqueLong 
Moveq 
@1 Btat 
Beq.S 
Tat.B 
Bne.S 
ST 
@4 Move 
Move 
Or 
Bar 
Bras 
@2 Tet.B 
Beq.s 
sf 
Bras 
@3 Addq 
Cmpl 
Bne.S 
At 


IndqueModes 
Moveq 

@1 Btt 
Beq.s 
Tat.B 
Bne.S 
ST 

@4 Move 
Move 


@3 Addq 


AflcheSelsc 
Lea 
Move 
Moveq 

@\ TstB 
Beq.s 
Move 
Or 
Bsf 

@e Tst.B 
Beq.S 
Move 
Or 
On 
Bsr 

@3 Addq 
Cmpl 
Bne.s 
Lea 


Moveq 
@4 TstB 
Beq,s 
Move 
Or 
Bar 


@S Addq 





IndDestinatlons(A3),A4 
#$4000,D5 

Indique Modes 

D7 

IndSourcee(A2),A4 


D7 
IndLongueur(AS),A4 
#12,00 

00,07 

IndiqueLong 
DrapeauCCR (A3) 
@3 


CodeOCA(A3).D7 
INdCCR(A3),A4 
#0,D6 

07.05 
#$0007,D5 
C(A4.D8).D5 
@5 
DS,0(A4.D6) 
#8.05 

D6,D5 

05.-(SP) 
PositionsBñs 
#3,07 

#1,06 

#5.06 

®4 


#0,06 
D6,07 
@2 
0(A4,D6) 


Bk15(A3),D0 
DO,(SF) 
SelectionLong 


8k15(A9).00 
00,(SP) 
DS,(SP) 
SelecionMode 
®3 

O(A4,06} 


@3 
0(A4,08) 
@4 
#1,06 
#12,06 
®1 


IndSources(A3),A4 
Bt15(A3).DS 

#9,06 

O(A4,D5) 


D5.(SP) 

#$4000, (SP) 
SelectionMode 
#1,D6 

#12,06 

@1 

In.onQuaur{ A3), A4 
#9.D6 


SslectionLong 
#1.D6 


Pom's n° 26 


] 





Cmpi #3.D8 regstres>,cAE>" xAnd  Dc.B $03,'AND',1,3,4,-1 
Bne.S @4 Sy26 DcB SiA, <A62.<iste def Dec  BXrarBAp+E7p+BV0+ 800 ] 
Rts régistes>" Dec TouM-M2M1+A_BWL Z- 
AfticheCCR dus D L HS ue De Mi1,TouM-M1-M2.M10-M11/ C = 
Lea IndCCR(AS)A4 - ," d{Ay). M12eA BW. SR 
Movea _ #9.D6 Syes De.B $90.#donnée> Dr xAndi  Dc.B $04,'ANDF.0.6.-1 LS 
@1 Move.B  0{A4.06).00 Syes DcB $12,' #<donnée 16 bits> Dc  BXns+BNp+E2p+BV0+8C0 Fy 
Lsl s#4,00 Sy30 Dc.B S%0B.'#-vocœur" Dc  M12,TouM-M2-M10-M11-[ Dc 
Or 06,00 Sy31 DcB $03, An M12+A BWL Dc TouMM2M1A W 
Move  D0,-(SP) xAndC  Dc.B $84'ANObC",0.7.-1 xEor  Dc.B %3,'EOR:,0.4 
Bsr PositionsBte 3P our afilchaye d'u tableau de s modes Dc  BXprBNp+BZpeB\P;8Cp De BXnarBNp+82p+BV0+8C0 
Addq  #1.D8 ; J'ad®as2æe. Dc M12,PasM+A _B Dc  M1.TouM-M2-M10-M11-J 
Cmpi #5,06 Modes  OcB 506,‘ Source xAndS  Dc.B $S84.-ANDBS"0.8.-1 M12+A BWL 
Bne.S  ®1 Dc.B 905. Dest. Dc  BXp+BNp+B2Zp+BVp+BCp xEon  Dc.B 504, EORFT.0,6.-1 
Rts DcB 902, Dr Dc Mi2PæaMA_W Dc  BXerBÿ-H2p+BVO+BCO 
Dc.B $02,'An' xAs! Dc.B $03.'ASL',2,9,10,11 Dc M12,TouM-M2-M10-M11-] 
; Po urlaire suñte à Un Change ment de Dc.B $04,'(An)' Oc BXp-8Ap-+pZpeg P+BCp M12+A_EWL 
; syntaxe (souris ou clavier}. Ocfi 905, {An}+: Dc M1,M1+A_BW, xEorC  Dc.B $84,'EORI>C’,0,7.-1 
ChangaSyntars DcB 905,‘-{An)' Dc M12,M1+4_BWi. Dc  BXpr-BNWPBZp+B W+8Cp 
Tet D7 DcB 805, d{An} Dc PasM.TouM-Mt.M2-M10-/ Dc M12,PasM+A _B 
Bne.S @t Dc.B -S06,' d{An, Xi)” M11-M12+A W xEorS  Dc.B 584, EORLS",0,6.-1 
Move.L HandiesCt{A3).-(SP) Dc.B $05.'Abs.W' xAsr Dc.B $03/ASR:,2,9,10,11 Dc BXp»BNprB2peBVp+BCp 
Move  #1.-{SP) Dc.B S05,'Abs L' Dec  BXp+BNprB2peBVp+BCp De M12,PaæsM+A.W 
SeiCliValue Dc.B Ta Le D xExg  Dc.B 5 ee 0, r15eMags ( 
r ï Dc.B $08,'d{PC,x)' c M12,M1+ F De BX1arBNnarBZha+BVnae 
Hé = d--dhéliuss ” DcB  S03/mm' Dc  PasM.TouM.M1-M2-M10-J BCna 
SeiCtlValue M11-M12+A_W Dc Mi:M2.MteM2+A L 
Le Cmp #2,05 ; Pour aflichages divers. xBcc  Dc.B $03,Bcc',0,12 xExl Dc.B $03,EXT:,0,16 
Bne.S  @2 Bhs DcB NZVC DOc  BXnerBNne+AZna+BVna+) Dc  BXna+8W-+47peBV0+BCO 
Move.L  HandlsaCtl+8(A3),.{SP 2..8°2,.W.2,L' BCns Dc PasMM1+A W+A_L 
La ; SP) be Fa Fes 0° . " Dc  PasM.PasM+A B+A_W x Dc.B $05,ILLEG',0.0 
SaiCUValue Un Dca 4e xBchg  Dc.B 504, BCHG',1,4+Msg2,[ De  BXnaeBNna+B2na+Vnsr] 
, Bas  @2 Re. j BCna 
@t Cmp #1.07 ; Message des cas particuñees . De BXnsBfe+gZptBVre Dc  PasM,P8sM 
Bre.S  @S Mgt DcB 44/Si <AE>An.W et L[ BCns xJmp  Dc.B $03,JMP,0,11 
Move.L  HandiesCt{ag).-(SP) dame CECI" Dc Dnenel De Dane 
cr {8P) Mg2 DcB 35/Si0esinæin = Dn:.L | Oc  M12,TouM-M2-M10-M11-] Dc PasM,TouM-MI-M244-/ 
Dove HandesCiA«3).(5P st el nes MSM12 
ue rer (SP) MB DcB a a Es An:.BJ xBcir  Dc.B Here AoMsg2] xjer  Dc.B 503, JSF.0,11 : 
È 6+ Dc  BXne+8Nira8ZrasBVna+ 
+ Mas DcB pire rs «An: Wat.Lf Dc EXrmEAne2pBVnas] ce 
BCns PasM,TouM.M1-M2 
RES Mg5 DcB 43/Si donnés/adresse, Ry -f De  Mi,TouM-M2-M10-M11-J se MSMI2 
Movel  HandiesC1+8{A3).-{SP) registre d'adreias ” TNT) 
Ck (SP) +A_BsA |. xiea  Dc.B S0S/LEA:0,5 
SetCtiVaiue Alïgn 2 Dc  M12,TouM-M2-M10-M11-f De ref 
_ : : ; : M12°A_B+A_L 8Cra 
8ms ; Informations waives aux instuci ions du J 
@3 MovaL HandiesC1ÿA3),-(SP} ; MC69000. Pour chaque instruction, on @ra  Dc.B $03.8AA'0,12 Oc TouMMi-8-u44MsM12 
Ck SP) : trouve : Dc BXnseBnsB7nse8Vrme) MAL 
_SetCiiValue 1 « Un octet indiquant ja longueur du oode BCns xbirk  Dc.B $04,LINK",0.17,-1 
Move.L HendieaCti+4{A3},-{SP) ; mnémonique, avec le bà de signe (7) à 1 si Dc  PasM.PSM+A B+A_W De BXna+BAna+HZnaBVna] 
Ck (SP) :1Ly a deux œunxtères de plus (comme pour xBget … Dc.B $04,BSET.;1,4+M202,/ ECre 
_SelCtiVelue : MOVE % SA, pour lequel le code est c+Mg De M2.M12 
Move. HandiesCtls8(A3).{SP) : MOVE, mais qui est eprésené dans le Dc BXna+BNna+B2p+8Vna] xLsl Oc.B $03/LSL',2.9.10,11 
Move #1,-(SP) ; tableau par MOVE>S) ; BCna Dc BXp+BNp+52p+BV0+8Cp 
_SeiCtiVaiue :- lee aracéres du code ; Dc Mi,TouM-M2-M10-M11-J Dec M1.M1+A_BWL 
@2 St DrapeauCCA(A3) ;» un octet indiquant le nombre de M12+A_ BAL Dc M12,M1+A BW 
Move.B  D7,NumaroSyntaxe({A3) : syntaxe - 1 ; Do  M12,TouM-M2-M10.M11-f De PasMTcuM-M1-M2-M10-] 
Move D7,D6 ; + pour Chaque 5ÿMaxe. un octet conte nant M12+A. B+A L M1-M12+A_W 
Bst Indications : le numéro de syntaxe plus, ei nécmssale, xBsr Dc.B $03,BSR',0.12 xLsr Dc.B $03,LSF7,2,8,10,11 
AndiB  #$F0,BoutonCourani(A3) ile numéro du message lié À conte syntaxe ; Dc BXns+&Nna+BZna+BVna+] Do BXp+BNp+B2p»BV0+BCp 
Move.B  NumeroSynlaxe(A3),D7 ; + sl nécassalr, un octet à-1 sarvant BCna Dc M1.M1+A_BWL 
Or.B D7,BoutonCourem(As} ; uniquemsnt à aligner les informations De PasMPasM+A_B+A_W De M12.M1+A.BWt 
Bar AflicheMessags ; sulvartes sur des adresses paires; xBi51  Dc.B $04.8TS7',14+M802/ Dc  PasM.TouM-Mt-M2-M10-J 
Ris ; « un mot de 16 bits pour les iformations 6+Msg2 M11-M12+A W 
; relatives aux bis d'état (3 bis 5); De  BXna+BNna+BZPrBVna+f xMove  Dc.B $04,'MOVE,0,18+M303,-1 
dE pour chaque syntaxe, un mot de 18bBe BCna Dc  BXna+BAps&Zp:BV0-BC0 
| ; pour indiquer les modes d'ajrrs22ge Dec Mi, TouM-M2-M10-M11-J De TouM,TouM-M2-M10-M11-{ 
Source ; autorisés pour l'opérande no. me M124A B+A L MA _BWi. 
& , ;* Pour chaque syniane, Un mot de 8 Dc M12,TouM-M2.M10-M11- xMovC Dc.B S24 'MOVE>C'0.19.-1 
S68000/2.Asm ; Pour indiquer les modes d'adræ:cage M12+A_B+A_L Dec FE 
; autorisés pour lopérande desiration et xChk Dc.B $03,'CHK,0,3 Dc  TouM-M®, Push A W 
: Liste des syntaxes possibles. ; les longueur valides (octet, mot et long Dec  GXna+BNp+E71eBVHBCI xMovea Dc.B 505,,MOVEA:0,5 
Syo DcA $01,: : mot) . Dc  TouM-42.M14_W Do  BXria+BNna+BZna+8Vna+ 
Syt  DcA 5%6,Dy.Dx xAbod  Dec.B $04,'ABCD',1,1,2 xCk Dc.B 908. CLA',0,11 BCna 
Syÿ2 DcB Soc, {Ay}-(Ax) Dec Dc BXnar-BN0+8R7 1:8V0+8C0 Dc TouMM24A WsA L 
Sy3  DcA $08.<AE>.Dn Dec MiM1+AB Dc PasM.TouM-M2.M10-M11/ xMowJ Dc.B S84'MOVE_{/,1,20.21 
Syt  Dc.B $08.:Dn<AE> Dc MS5MSA B M12eA_BWL De BXna+BNna+BZna+BVna+f 
Sys Dc.B $08.'<AE>.AN xAdé  Dc.B $03,'ADL',1,3#Mag4,4.-1 xnp  Dc.B 304: CMP,0,3-Ms94 BCna 
Sy6 OcB $0F,'s-donés>.cAE>' De  BAp:Bp+ Dc  BxrerBAprazprBVp,BCp Dc PasM.M2+A L 
Sy7  OcB $15; s<dorrés 8 bis>,CCAr De TouMMiHA_BWL Dc  TouMMieA_BWL Dc M2,PasM+A_L 
‘ Sy8 OcB $15. #<donnée 16 bita>.SR' Dc Mi.TouMM1-M2-M10-M117 xCmpa Dc,B 994. CMPA',0,5,-1 McvS Dc.B $84,MOVE-<S",0,22.-1 
Sy9  Oc.B 906. Dx.DY' -M12+A_BWE Oc  BxreBp-Æp»p Vp+BCp Dc BXnasBSnas@7na+BVnas 
Sy10 Dc.B 900. 6<donnée> Dy aAdéa Dc.B 504 ADDA'.0,5.-1 Oc TouMMeeA_W+A_L BCns 
Sy OcB $05.<AE>' Dc  BXna+BhinasBZna+BVna+l xCinpt Dc.B $04.CMPF.0.6.-1 Dc  PasM,TouM-442-M10-4111-J 
Sy12 DcB $C: <étiquette> BCna Dc Glre+8Ap»Æ7p»BVprBCp M12+A-W 
Sy13 DcB soc, (Ay)+{Ax)+ Dc TorMM244_W+A L Do M12,TouM-M2-M10.M11-4 xMonS Dc.B $84,MOVE>S",0,23,-1 
Syi4 DcB $0F, Dn.cétiquene> xAddi  Dc.B 904. ADDr,0,6,-1 _ De ° Dc Le NE 
Sy15 DcB $08, AxRY De  BXp+ENpenZPrBVPrBC: mem . À 0,13,-1 Dc  TouM-M2.PasM+A_W 
Sy1é Dc.B $06;Dr Dc Di ae ANA De BxresBNp+E2PrBVpe8Cp  xMovem Dc.B 505, MOVEM",1.24,25,-1 
Sy17 Dc.B S$iA, An.f<déplacement 16 J M12+A-BWL Dc M4,M4+A BWL Dc BXna+8a:BZna+BVna+) 
bis>' xAddg Dc.B $04.A000,0,5-Mag1,-1 xDBœ  Dc.B $04.'DBcc',0,14.-1 BCns 
Sy1é OcB SOA: AE>,AE> De BXP-BNp+82p+EVprBCP De  BXna+BNna+BZna+BVna+f Dc MI+M2M3+U5+M8eM7+/ 
Sy19 DcB $09. <AE>.CCR' De M12,TouM-M19-M11-M12+1 BCra à M8+M9+A_ WA L 
Sy20 Dc.B $07. USP,Arr A_BWL Dc MiPasMsA W De  TouM-Mi-M2.MS-M12.M1+/ 
Syè1 DcB $07. AnUSP xAdôx  Dc.B 504, ADDx,1,1,2 xDive  Dc.B $04,D1VS,0,3,-1 M2+A WA 
Sy22 Dc.B $08; SR,cAE>' Dc  BXp+BNprBZPp+BVp+RCp Dc  BXria+BNp+82PrBVp+8C0 xMovep Dc.B $05,/MOVEP,1,26,27,-1 
Sy23 ODcB $06, <AE>,SA Dc M1,M1+A_BWL Dc ToumM-M2.M1+4A W Dec BXne-BAns+BZnm+EVna+| 
Sy24 Dc.B $1A; <lsie de j Dc M5.MS+A BWL xDivu  Dc.B $04.DIVU".0,3.-1 BCna 


Pom's n° 26 


EL ont 








— Dc PasM,TouM-Mi-M2-M4 M5  xSube  Dc-B 504, SUBA',0,5.-1 
] -M12+4A L Dc BXnar-BNna+EZne+BVnasf 
Z- xReeet Dc.B $0S,/RESET,0.0 BCna 
(ES = Dc  BXna+BNna+BZna+BVna+| De  TouM.M2+A W+A E 
SN BCna xSubi  Dc.B 504, SUBF,0,6,-1 
Dc PasM,PasM Dc BXp+BNpsBZp+BVp+BCp 
7 xRot  Dc.B $03/ROL'.2,9,10.11 Dc nn 
Dc M1M6+A W+AL de Re ARS xSubq  Dc.B 504. SUBQ,0,6+M3g1,-1 
Dc M6.M1+A_W+A_L Dec M12 Mt+Â BWL Dc  BXp+BNp+B2Zp+BVp+BCp 
xMoveq Dc.B $05,MOVEO",0.28 Dc PasM.TouM-M1-M2-M10-] De M12,TouM-M1C-Mi14412/ 
Dc  BXna-BNpr82p+BV0+BC0 M11-M125A W +A BWL 
De M12.M1+A-L xRor  De.B $03/ROR',2,9,10,11 xSubx  De.B $04,SUBX',1,1,2 
an ee 5 Dc … BXna+BNp+B7peBVO+BCp DC EXp»BNp+BZPeBVp+BCp 
Dc  BXna+BNp+82p+BV0+800 Dc MiMi+A_BWL Dc MiMt+A BWi. 
Dc  TouM-M2M1+A_W De M12.Mt+A BW. Dc M5,M5+A BW. 
xMuiu  Dc.B $04,:MLI-U,0,3.-1 Dc  PasM.TouM.M.M2.M10-f xSwæ  De.B $04,SWAP,0,16,-1 
Dec  BXna-BNp»BZp+BVO+BCO MI-M125A W Dc  BXna+BNp+BZp+BV0+8C0 
Dec  TouM-M2,Mt4A_W : a ; Dc PasMM1+A_W 
xNbod  Dc.B $04'NBCD'0.11.-1 PR DÉS Meent  MTepl DTA on 
Dc BXprBNHBZp+BVi+BCp De M1iM13A BW Dc  BXnæBNp+BZprBV0+BC0 
Dc  PasM,TouM-M2-M10-M11-[ Dc M12,M1+A BW Dc PasM,.TouM-M2-M10-M11-j 
M12+A_B M TouM-M1_M2.M:0. M12+A_B 
iNeg  De.B $03/NEG°0.11 De, TERMS SE SSD rhap soc 
Dc  BXp+BNp+B2P+BVP+BCp xoxr  De.B $04.ROXR:2,9.1 0,11, Dc  BXnarBNna+BZna+BVna+f 
Dec PasM,TouM-M2-M10-M11-{ Dec BXp+BNp+BZpBVO+BCp BCna 
M12+A_BWL Dec M1.M1+A BWL Dc PasM,M12 
xNegx  Dc.B $04,NEGX:.0,11.-1 Dc M12,M1+A BWL xTræv  Dc.B $05,1RAPV.,0,0 
Dc  BXp+BNHB2p+8ViBCp Dc  PasMTouM-M1-M2-M10-/ Dc  BXna-BNna+BZna+BVnael 
Dc PasM,TouM-M2-M10-M11-J M11-M124A W BCna 
MI2+A_BWL xs Dc.B $03/R1E",0.0 D EMPasM 
XN®@æ  Dc.B $03,;'NOP',0,0 Dc  BXp»BNp+BZp+BVp+BCp xTst Dc.B $03.TST,0,11 
Dc  BXna+BNna+BZna+BVna+/ Dc PasMPasM De  BXna+BNp+BZprBV0+BC0 
BCna xFitr Dc.B 503, ATR.04) De  PasM.TouM-M2-M10-M11-[ 
Dc PasM.PasM Dc  BXP+BNp+BZp+BVp+BCp M12+A BW. 
xNot  DcB $03,NOT.,0,11 Dc PasMPasM xUnlk  Dc.B $04,'UNLK',0,31,-1 
De  BXna+BNp+BZp+BVO+BC0O ya  Dc.B $03/ATS"0.0 De  BXna+BNna+B2Zna+BVnas] 
De PasM,TouM-M2-M10-M11-] Dc  BXna+BNna+BZna+BVnsr] BCna 
M12+A_BWL BCna De  PasM.M2 
xOr Dc.B $02,0R',1,3,4 Dc PasMPasM 
De BXneBNpeBZprBVO+BCO  yspcd  Dc.B $04.SBCD',1,1,2 EE One Ceres 
Dec  TouM-M2.Mt+A BWL Dc  BXp+BNiBZp+BVHBCP icone  Dc.L  800000000,$000U0050 
Dc M1,TouM-Mi-M2-M10-M11f Dc MIMi+A B Dc.L $00000080.$0000110 0 
-M12+A_BWL Dc M5.M5+A B Dc.L  $000008AA,$00000155 
xOd  DcB $03,ORI,0,8 xSce  De.B $03,;Scc.0,11 Dc.L  $000000AA.S00001 401 
Dec  BXna+BNp+8zpeBV0+8C0 Doc  BXne+BNna+BZna+BVna+f Dc.L  $00002A02,500004514 
De  M12.TouM-M2-M10.M11-/ BCna Dc.L  99000A280,$00015140 
M12+A_BWL De  PasM,.TouM-M2-M10-M11-f Dc.L  $000226A0.80005 1440 
xOriC  De.B SB3,OR1>C",0,7 M12+A B Dc.L $00028A00.500016560 
Dec  BXp+BNp+B2p+BVp+BCp xStop  Do.B $04,STOP.0,29.-1 Dc.L $0028A2A0,$005451 40 
Dc M12PasM+A_B Dc  BXp+BNp+82p+BVp+BCp Dc.L  $008A2980,500453D7C 
xOnS  Dc.B $83,ORI>S",0,8 Dc  PasM.M12 Del  900A2FFD6,S1451FEAB 
De  BXp»BNp+B8Zp+BVp+BCp xSub  Dc.B $03.'SUB’,1,3+M6g3.4.-1 Dc.L  SPA26FD45,54515FAA3I 
De  M12.PasM+A W Dc  AXp+EN+82p+BVp+BCp DcL  $a20AF045,85100FAA3 
xPea  Dc.B $03,PEA',0,11 Dec  TouM.M1+A_BWL Dc.L  $2A007D46,$16007AAA 
De  BXna+BNna+BZra+BVnas] Dc  Mi,TouM-M1-M2-M10-M11J Dc.L $0A003D54,$05001A A8 
BCna -M12+A_BWL DcL  $02800DD0,$01000660 


Dc.B 
Dc.B 
Dc.B 
Dc.B 
Dc.B 
Dc.B 
Dc.B 
Dc.B 
Dc.B 
Dc.B 
Dc.B 
De.8 
Dc.B 
De.B 
Dc.B 
De.B 
Dc.B 
De.B 
Dc.B 
Dc.B 
De.B 


Poms 


CadreFenetre 
RectMnemo 
ReclSyntaxes1 
RecliSyntaxes2 
RectControles 
RectDast 
RectDestPoms 
PasTitre 


Curgsuri 


252,124,128,179.224 
62,62,7,249,3 
182,192,12,124 
198,198,193,182,16 
67,99.674 
97,128,24,134 
198,198,227,168.0 
3,99,7,227,0 
99,0,48,8 
196,198,213,131,224 
14,83,0,51,0 
198,0,96,28 
252,196,201,128 
48,3,3,0,51 
1,140,192,204,6 
192,196,193,132,48 
67.67.4,51.3 
15,224,254,134 
192,124,199,1 31,224 
62,62,35,227,39 
224,196,12,124 


40,3,340,284 
1,2.253,162 
256.10.264.230 
284,16,298.223 
254,1,298,15 
267,223,299,255 
214,158.221,279 
0 


FFFEFTEE 


Dc $0020,$0050,$0048,$0024 
Dec $7FF2,$8009,$7FC9,$0825 
De  $07C3,9421,$03C3,$01FE 
Dc  $0000,80000,80000,50000 
Dc $0020,$0070,$0078,8003C 
Dec  S7FFESFFFF,S7FFF.S0FFF 
Dc $07FF,$07FF,903FF,S01FÉ 
Dc  $0000,50000,$0000,8$0000 
Dc 50 


Dc  $00C0,$0140,50180,59D7C 
Dec  $7FO6.$FEAB,SF046.$F AA3 
Dc  $FD45.SFAAS,$7D46,$7AAA 
De  $3D54,81 AAS,80DD0,$0660 
De $00C0.$01C0,$0180,5307C 
Dc  S7FFE,SFFFF,SFFFF,SFFFF 
De SFFFFSFFF.$S7FFE,S7FFE 
De  $3FFC.$1FF8.$0FF0,50660 


Dec 0,8 





AÏ 





Ces deux petits programmes, quiontété 
utilisés pour la mise en pages du numéro 
26 (titre de l'article ‘Lissajous’ et 
Éditorial), montre qu'il est possible, 
grâce à la définition de l'affichage du 
Macintosh, d'obtenir des images de 
qualité avec des fonctions trigonomé- 
triques simples. 


Bien qu'ils ne soient pas très longs, les 
deux programmes se trouvent, comme à 
l'accoutumée, sur la disquette d'accom- 


Routine pour ‘noircir’ la 
barre des menus 
(incorporée aux programmes Basic) 


ScrnBase EQU $824 
ScreenRow EQU $106 


2078 0824 MOVEAL ScmBase,AO 
7013 MOVEG  #19,D0 
32380106 Æ MOVE ScreenRow,D1 
10FCOOFF Bt MOVEB &#$FF(A0}+ 
5341 SUBQ #1,01 

F8 BNES Bf 
51C8FFF2 DBRA 00,80 

4E75 TS 


pagnement de ce numéro. Rappelons ‘ 


qu'il n'est pas nécessaire d'avoir le 
Basic Microsoft pour utiliser les pro- 
grammes Basic publiés dans Pom's : 
une version RUNTIME’ de la version 
2.00 se trouve sur chaque disquette 
Pom's depuis le numéro 23. . 


Programme ‘Courbe’ 


DEFINT A-2:DIM C(15):PI!=3.1416:F 
OR i=0 TO 15:READ C(I):NEXT:W 
INDOW i,"",(0,20)-(512,342),3: 
HIDECURSOR:BACKPAT VARPTRI(C 
(12))}:A!=VARPTR{C(0)}:A!:CLS:P 
ENMODE 10 

DATA &6h2078,&4h824,8h7013,&h3238,6h 
106,&h10FC,&hFF,&h5341,&h66F8,8&h 
S1C8,&hFFF2, &h4E75, -1,-1,-1,-1 

FOR I!=0 TO PI!*2 STEP .001:X=256 


+1.5*(904COS(I!)-110*SIN(I!})): 
Y=150+.7*{(80*SIN(B*I!)-(120*CO 
S(I!))):IF C TNEN PRESETI(X,Y) 
:C=C-1 ELSE MOVETO X,Y:LINET 
O 256,190:C=9 

NEXT:BEEP:WHILE NOT MOUSE(0):N 
END :MENU RESET:SHONCURSOR 


Courbes 


Marianne Sutz 





Programme ‘Courbe?’ 


DEFINT A-Z:DIM A!(520),C{15):PI!= 
3.1416:FOR I=0 TO 15:READ C{I) 
:NEXT:WINDON 1,"",(0,20)-(512, 
342),3:NIDECURSOR:BACKPAT VA 
RPTR(C(12)):A!=VARPTR(C(0)):A! 
:CLS 

DATA &h2078,&h824,&h71013,&h3238,6h 
106,&h10FC, &hFF,6h5341,&h66F8,€&h 
51C8,&hFFF2,&R4E75,-1,-1,-1, -1 

FOR X=0 TO 255:IF X MOD 3 THEN N 
=3 ELSE N=1 

Y!=20*SIN(X*3*PI!/256)+X/2:FOR X2= 
0 TO 255 STEP N:Y2!=20+*SIN(X2* 
3*PI!/256)+X2/2:IF Y!+Y2!>=A! (2 
60-X+X2) THEN A! (260-X+X2)=Y!+Y 
2!:PRESET(256-X+X2,280-A!{260- 
X+X2) 

NEXT:NEXT:BEEP:NWHILE NOT MOUSE 
{0}: WEND':MENU RESET:SHOWCUR 
SOR 





SP 


—_ = — | 
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Frédéric Ivsic 


LOUPE est une routine écrite en 
assembleur 6502 qui réalise un 
effet de zoom sur une page 
graphique haute résolution. Elle 
agrandit et affiche en basse 
résolution une fenêtre extraite de 
cette image. 


La fenêtre superposée à l'image 
haute résolution se déplace avec 
les touches traditionnelles I, J, K 
et M. La vitesse de déplacement 
peut être modifiée avec les 
touches 1 à 9. 


La touche G permet de passer en 
basse résolution en recopiant le 
dessin situé dans la fenêtre, afin 
d'en étudier les détails. A 
l'inverse, la touche H fait revenir 
en mode haute résolution. 


Enfin, Escape permet de sortir 
du programme en revenant au 
niveau du Basic. 


Sur la disquette d'accompa- 
gnement, vous trouverez les 
fichiers : 


LOUPESS source en Big Mac 
LOUPE fichier 6502 exécutable 
LOUPE.DEMO petit 
programme de démonstration 
LOUPE.PIC image graphique 
utilisée pour la démonstration 


Le programme se charge en 


$7800 et utilise certaines routines 
de l'interpréteur Applesoft et du 
moniteur, en particulier HPOS et 
GBASCALC qui calculent les 
adresses respectives en haute ou 
basse résolution d'une ligne 
donnée. 

Les octets 6 à 9 de la page zéro 
sont également utilisés. 


Aucun accès spécifique au DOS 
3.3 n'étant utilisé, LOUPE est 
donc aisément portable vers un 
environnement ProDOS. 


Programme 
‘LOUPE.DEMO’ 


- Pour utiliser ce programme, vous devez 
avoir sur la disquette une image graphique 
nommée LOUPEPIC. Cette image est 
charg ée à la ligne 54. 

REM —- DEMO LOUPE — 


D un un 


20 PRINT D$"BLOAD LOUPE,A$7800" 
30 HOME : ATAB 15: INVERSE : PRINT "DE 


43 PRINT "POUR FASSER EN #GR, 





44 


45 


46 
48 
50 


52 


53 
54 


55 
60 
62 
685 





jm 


PRINT "ET DE MEME POUR GR, TAPEZ (G 


jm 


PRINT : PRINT " 

I" 

PRINT "LES DEPLACEMENTS: J< >Kk" 
PRINT " Mr 
PRINT : PRINT "LA VITESSE DE DEPLAC 


EMENT VERTICALE": PRINT "PEUT VARIER 
PE lAS" 


PRINT : PRINT "ENFIN, (ESC) POUR FI 


NIR." 


PRINT : INPUT NTAPEZ RETURN..";R$ 
PRINT D$"BLOAD LOUPE.PIC,A$2000": R 


EM CHARGE IMAGE HGR 


REM -- GR,NON MIXTE ,HTE RES.-- 
POKE 49239,0 
POKE 49234,0 
POKE 49232,0 


100 CALL 30720 
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33 














$ L 55 BPL KEY *si non, retour à KEY 
Source LOUPE.S 56 AND 4$7F BIT 7 À 2ERO 
Assembleur Big Mac D TAY 
58: 
1 59 * --- BOUCLE DE LECTURE DU CLAVIER --- 
2 ht hhhhhthhhhthhtth 60 * 
3 ** * 61 CPY #$1B * Données = <ESC> ? 
4. ## LOUPE HGR->GR * 62 BEC FIN Fin de programme 
5 2» * 63 CEY #547 * = <G> ? 
6 ** ESTIVSIC * 64 BNÉ A1 
7 ** * 65 LDX #00 *Basse résolution 
8 ** DOS TOOL KIT d 66 STX $C056 
QORRRRRARRRÉARARÉRRRRRRARÉR 67 JSR BELL2 
10 * 68 A1 CPY #$48 * = <H> ? 
11 COORDX EQU $6 69 BNE A2 
12 COORDY EQU S7 70 LDX #00 “Haute résolutn 
13 VARX EQU $8 71 STX $SE0S7 
14 VARY EQU S9 72 JSR BELL2 
15 HPOS EQU $F411 73 JM A7 
16 GBASL EQU $26 74% 
17 GBASH EQU 527 75 FIN LDX #00 
18 GBASCALC EQU $5F847 76 STX  $CO051 * Mode text 
19 HOME EQU $FC58 77 JSR BELL2 *Beeeeeeep!!! 
20 BELL2 EQU $FBE4 78 JSR HOME *Efface écran text 
21 * 73 RTS *retour BASIC 
22 LIGHGR2 EQU $F9 *Dernière ligne fenet 80 * 
re KGR 81 * --- Coordonnees Ÿ --- 
23 LIGHGR3 EQU SFA *Avant-dernière ligne 82 * 
HGR 83 A2 CPY #$49 * I" = haut 
24 LIGHGR  EQU SFB *Première ligne HGR 84 BNE A3 
25 LIGGR EQU  S$FC *Première ligne GR 85 SEC 
26 OCTHGR  EQU SFD *Octet HGR (1{Colonne 86 LDA VARY 
} 87 SBC VITESSE * Mvt modulable par i 
27 OCTHGR2 EQU $FE *Octet HGR (6[Colonne nerement de 1 a 3 
ñ 88 STA VARY 
28 OCTGR EQU $FF *Octet GR (1 à 40) 89 A3 CPY #$4D * "M! = bas 
29 INDOCT EQU $CE *Index Bit dans octet 90 BNE A4 
HGR 91 CEC 
30 MASK EQU $CF *Cadre HGR Col. D 4 G 32 LDA  VARY 
31 MIXT EQU $D6 93 ADC VITESSE * Mut modulable par i 
32 VITESSE EQU S$D7 “Vitesse de déplaceme ncrement de 1 a 9 
nt en Y de 1..9 94 STA VARY 
33 * 95 # 
34 * 96 * --- Coordonnees X --- 
35 ORG $7800 SAS 
36 98 A4 CPY #$4A * 'J' = gauche 
37 INIT LDX #20 *fenetre au 29 BNE A5 
38 STX  VARX *centre écran 100 SEC * Ici le mouvement es 
39 LDX #96 t constant car 
40 STX VARY 101 LO8  VARX * celui-ci s'effectte 
41 LDX #1 *Vitesse = 1 par pas de 7 
42 STX VITESSE 102 SBC #1 * bits (1 octet}) sur 
93 * l'écran graphique 
44 KEY LDA VARX 103 STA VARX 
45 STA  COORDX # - transfert de VARX 104 AS CPY #$4B * tK' = droite 
& VARY vers 105 BNE A6 
46 LDA VARY * COORDX & COORDY c 106 CLC * Idem ci-dessus 
är ces derniers 107 LDA VARX 
47 STA  COORDY * sont modifiés après 108 ADC #1 
chaque visualisation 109 STA VARX 
48 JSR Li * par Li et L2 110 * 
49 USR  L2 111 A6 CPY #$31 * YSr1" alors A7 
50 BIT $C010 112 BCC A7 
54 LDA $C000 * Lect clavier 173 CPY #$3A *si Y>=':"{code suiva 
52) PAP nt "9'},alors A7 
53 BIT $C010 * Indic. touche enfon 114 BCS A7 
cée 4 RAZ ls SEC 
54 PLP 116 TYA 
Pom's n° 26 











*1:-49:= $31!;:$39 
*d'ou la soustraction 


*+Fin de la boucle de 


*pour effacer le 
*cadre HGR après ler 


“principale. 
*coordonnées X, 
*ÿ octet HGR en 
*haut à gauche 
*fenetre HGR de 
* 6 oct x 24 1ig 


*X entre 0 et 33 


*Y entr O0 et 167 
*(167=191-24) 


*CADREHGR seul pour e 


*Pag HGR pleine 
*Initialise 
*lere ligne HGR 


* Avant-dernière lign 


*Dernière ligne 


* ler octet 


117 SBC #$30 
118 STÀA VITESSE 
de $30 
1139 JSR BELL2 
120 * 
121 A7 JUMP KEY 
lecture 
122 * 
123 * -- SAUT EFFACE CADRE HGR {bis) 
124 * 
125 L2 JSR CADREHGR 
126 RTS 
appel à là routine 
127 * 
128 * -- CALCUL DE X ET Y 1{ OCTET HGR -- 
129 * 
130 LI SEC 
131 LDA  COORDX 
132 SEC #3 
133 STA COORDX 
134 SEC 
135 LDA COORDY 
136 SBC #12 
137 STA COORDY 
438 
139 * -- TEST LIMITE DE LA FENETRE -- 
140 * 
141 LDA COORDX 
142 BMI S1 *(33=39-6) 
143 CMP #34 
144 BCS S2 
145 JM 53 
146 Si LDA #00 
147 STA  COORDX 
148 BEQ S3 
149 S2 LDA #34 
150 STA COORDX 
151 S3 LDA  COORDY 
152 CM #243 
153 BCS S4 
154 CMP #167 
155 BCS «55 
156 UMP S6 
157 S4 LDA #00 
158 STA COORDY 
139 BEQ 56 
160 S5 LDA #16? 
161 STA COORDY 
162 56 JSR CADREHGR *'utilise 
163 JMP  TRANSF 
ffacer 
164 * 
165 * -- CALCUL PRELIMINAIRE -- 
166 * 
167 CADRERGR LDA #22 
168 STA MIXT 
169 M2 LDA COGRDY 
170 STA LIGHGR 
171 CLC 
172 ADC MIXT 
173 STA LIGHGR3 
e 
174 ADC fl 
1735 STA LIGHGR2 
176 LDA COORDX 
177 STA OCTHGR 
178 CLC 
179 ADC #5 
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180 


181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
193 
196 
197 
198 
193 
200 
201 
202 
203 
204 
205 


206 
207 
208 
209 
210 
211 
212 
213 
214 


215 
216 
217 
218 
219 


220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 

232 
233 
234 
233 
236 
237 
238 
239 
240 
241 

242 
243 


* 


COLONE 
COLI 


STÀA  OCTHGR2 
igne) 

CLC 
LDA 
STA 
STA 
STA 
LDA 
STA 


#00 
LIGGR 
OCTGR 
INDOCT 
#$20 
$E6 


-- DESSIN CADRE EN HGR 


LIGHGR 
#00 
#00 
APOS 
LIGNE 


LDA 
LDX 
LDY 
JSR 
JSR 


LIGHGR2 
#00 

#00 
HPOS 
LIGNE 
SUITE 


LDA 
LDXx 
LDY 
JSR 
JSR 
JMP 


OCTHGR 
(GBASL) ,Y 


$57F 
(GBASL),Y 
OCTHGR2 
LIG2 


LIG1 


LDA #1 


MASK 
OCTHGR 
COLONE 


#$40 
MASK 
OCTHGR2 
COLONE 


LIGHGR 


AOC #1 


#00 
#00 
HPOS 


fGBASL}, Y 
MASK 
{(GBASL1, Y 


LIGHGR3 
COL3 





*éème octet [fin de 1 


* ler ligne GR 
* ler octet GR 
* Index = 0 

*$20 dans $E6 = 
*page 1 ds HPOS 


* Jlère ligne 


*Dernière ligne 


* Trace trait en 
* couleur complémenta 


* Colonne de gauche 4 


* le masque 0000 0001 


* Colonne de droite a 


* le masque 0100 0000 


+ Trace colonnes 
* tjs en complt 






























56 


244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 


257 
258 
259 
260 
261 


262 


263 
264 
265 
266 
267 
268 
269 


270 
271 
272 
243 
274 
275 
276 
277 
278 
279 
280 
281 
282 


283 
284 
285 
286 
287 
288 


289 
290 
291 
292 
293 
2934 
295 
296 
297 
298 
299 
300 
301 

302 
303 






























BNE COLI 306 S11 PLP 
COL3 RTS 307 JMP S12 
x 308 * 
* —-- TRANSF HGR -> GR -- 309 S14 PLP 
* 310 LDA #566 
TRANSF LDY #00 *lère ligne GR 341 JM  S10 
LDA #00 312 
USR CAD1 313 CADREGR LDY #00 “Dernière ligne GR en 
INC  LIGGR trait plein 
INC LIGHGR 314 LDX MIXT 
F 315 INX 
NEWLIG LDA LIGHGR *Adresse ligne 316 TXA 
LDX #00 ren cours et chargeme 317 JSR CADI1 
nt 318 RTS 
LDY #00 *de l'octet HGR 319 * 
USR HPOS 320 CADI JSR GBASCALC *trace en Plein la li 
LDY OCTHGR gne de n° A 
DA  (GBASL),Y 321 CAD2 LDA #$66 
BYTE ROR ;Rotätion, test fbit=1 322 STA  (GBASL),Y 
} de 323 CPY #39 
PHA *é bits affichés de 1 324 BEQ CAD3 
‘octet 325 INY 
TYA 326 BNE  CAD2 
PHA 327 CAD3 RTS 
PHP 
LDA LIGGR 
JSR  GBASCALC 
LDY OCTGR , 
LDA #SFF “dresse en GR et tra Pom's vous propose : 
nsfert 
CPY #00 20 ][) Q ?Q 
+ OIRIROS 
CPY #39 - 
BEQ S14 
BCS *:S11 
PLP * bit 1 = $FF 


S10 
S12 


S8& 
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BCS 
LDA 
STA 
PLA 
TAY 
PIA 
LDX 
‘un 
CPX 
BEQ 
INC 
INC 
BNE 
LDX 


R suivant sur la ligne 


STX 
LDX 
CEX 
BEQ 
INC 
BNE 
LDX 
STX 
LDX 
STX 
LDX 
CPX 
BEQ 
INC 
INC 
BNE 


LIGHGR 
NENWLIG 








Thierry Haurre Apple J[+, lle, le 





$S00 





S10 "Dit 0, 
#00 
(GBASL), Y 





















Il est inutile de présenté le jeu de dominos; 
celui-ci bénéficie d'un graphisme très soigné 
(en couleur si vous disposez d'une carte "Chat 






















INDOCT *Décompte de 7 bits d Mauve") et les messages transmis par le 
octet HGR programme sont, au choix, en Français, en 
#7 Italien, en Allemand ou en Anglais. 
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INDOCT 

OCTGR 






BYTE 
#00 *Passage à l’octet HG 







DOMIN IN OS 










INDOCT Ÿ : RE LL MES CELEILEELETTEEE ETES 
OCTHGR re 
OCTHGR2 Al 
s9 

OCTHGR 






NEWLIG 

#00 “ligne suivante 
OCTGR 

COORDX 

OCTHGR 

LIGGR IN 
MIXT 
CADREGR 
LIGGR 







LRTAT 
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Récapitulation 


‘LOUPE’ Une nouvelle disquette Pom's : HER 


Après avoir saisi ce code sous ® 
Ordico 
ee) 


moniteur, vous le sauvegarderez par 
BSAVE LOUPE,A$7800,L$1E7 





7600- A2 14 86 08 A2 60 86 09 Apple ][+, lle, lle+, lc 

7808- A2 01 66 D7 A5 08 85 06 

de Destiné aux amateurs de mots croisés ou de Scrabble, 
7820- CO 28 10 E8 29 7F A8 CO cette base de données, due à Roland Jost, permet de 
7828- 1B FO 18 CO 47 DO 08 A2 trouver un mot de longueur donnée dont on ne connaît 


78630- 00 8E 56 CO 20 E4 FB CO 
7838- 46 DO 17 A2 00 8E 57 CO 
7640- 20 £4 FB 4C 8F 78 A2 00 
7848- 8E 51 CO 20 E4 FB 20 58 Ordico contient plus de 15000 mots classés en 70 


que quelques lettres. 


768560- FC 60 CO 49 DO 07 38445 ' 
7858- 09 ES D7 85 09 CO 4D DO rubriques. ; | : è 
7860- 07 18 A5 09 65 D7 85 09 Recherches et affichages sont rapides : un fichier de 
1RGÈ= 07 PA D 07 EE ER 1500 mots est chargé en moins de 10 secondes et 
7870- 01 85 08 CO 4B DO 07 18 44 Te s 
Re eee 4 exploité quasi-instantanément. | 
: 7860- 90 OD C0 3A BO 09 36 96 ll est bien sûr possible d'ajouter des termes aux divers 
7888- E9 30 85 D7 20 E4 FB 4C fichiers, de créer de nouvelles rubriques. 
7690- OC 76 20 D6 78 60 38 A5 | 
7698- 0€ E9 03 85 06 38 A5 07 — . | 
78A0- E9 OC 85 07 A5 06 30 07 Voici quelques rubriques : 
78A8- C9 22 BO 09 4C 89 78 A9 ère face : 


78B0- 00 85 06 FO 04 A9 22 685 
78B8- 06 A5 07 C9 F3 BO 07 C9 
78C0- A7 BO 09 4C DO 78 A9 00 
78C8- 85 07 FO 04 A9 A7 85 07 
78D0- 20 D6 78 4C 5C 79 A9 16 
78D8- 685 D6 A5 07 85 FB 16 65 
78E0- D6 65 FA 69 01 85 F9 A5 
78E8- 06 685 FD 16 69 05 85 FE 


Acteurs, Animaux, Armes/guerres, Auteurs américains, Auteurs anglais, 
Auteurs français, Chimie, Cinéastes, Coureurs cyclistes, 
DépartementsÆégions, Dieux/déesses, Familles végétales, Femmes 
célèbres, Hommes politiques, les, Jeux/sports, Minéraux, Montagnes, 
Musiciens jazz, Musiciens, Parties du corps, Peintres étrangers, Peintres 
français, Rivières fleuves, Saints/saintes, Savants/inventeurs, 
Sculpteurs, végétaux, Vêtements, Villes 


76F0- 18 A9 00 85 FC 85 FF 85 2ème face : 
28F6- CE A9 20 65 E6 A5 FB A2 Athiètes, Boxeurs, Cantatrices, Cols, Cosmonautes, Coureurs 
7900- 00 AO 00 20 11 F4 20 18 automobiles, Déserts, Détroits, Doctrines philosophiques, Drogues, 
2908- 79 A5 F9 A2 00 AO 00 20 Escrimeurs, Explorateurs, Gymnastes, Haitérophiles, Judokas, Luftteurs, 
7910- 11 F4 20 18 79 4C 28 79 Maladies, Maréchaux de France, Médicaments, Nageurs, Patineurs, 
7918- A4 FD B1 26 49 ?7F 91 26 Poissons, Présidents américains, Skieurs, Ski nordique, Unités, Villes 
7920- C4 FE FO 03 C6 D0 F3 60 o/ympiques 
7926- A9 01 65 CF A4 FD 20 3B 
7930- 79 A9 40 85 CF A4 FE 20 
7938- 3B 79 60 A5 FB 18 69 01 Exemples : 
7340- 46 AA 36 46 6A A2 00 A0 Un musicien dont le nom comporte 7 lettres, les 2ème 
7948- 00 20 11 F4 68 AB BI 26 2 Ta | 
one DonCE ME D A TR et 5ème sont des ‘E’. Tapez : -E--E--. Vous obtenez 
7958- 02 DO E2 60 AO 00 A9 00 instantanément : 
7960- 20 D8 79 E6 FC E6 FB A5 BENNETT DEBOECK DELEEUW GEV AERT LESUEUR PEDRELI PEETERS 
7968- FB A2 00 A0 00 20 11 F4 WELLESZ 
7970- A4 FD B1 26 6A 48 96 48 
7976- 08 A5 FC 20 47 F8 A4 FF Dans les acteurs, —-A- — —- -E vous donnerait : 
7980- A9 FF C0 00 FO 42 C0 27 CARETTE PALANCE RACETTE RANDONE RAYMONE VALLONE 

| 7988- FO 3E BO 36 28 BO 02 A9 . 
7990- 00 91 26 66 A8 68 A6 CE Bis ae 
2998- EO 07 FO 06 E6 CE E6 FF CAUCHY CEECHI ENIGHT VAUGHN WRIGHT 
PR UE RE dans les femmes célèbres donnerait 32 


79A8- E4 FE FO 04 E6 FD DO B7 
79B0- A2 00 686 FF A6 06 686 FD 
79B8- A6 FC E4 D6 FO 10 E6 FC 
79C0- E6 FB DO A3 26 4C 93 79 


79C8- 28 A9 66 4C 91 79 AO 00 Disquette double face et documentation : 
HU RDe GE 6 20 per Ée 200,00 F franco. Bon de commande page 74 
79D8- 20 47 F8 A9 66 91 26 CO 


79E0- 27 FO 03 C8 DO F5 60 
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EL 








CALLRWTS 


Patrice Neveu 


CS 
PS 





CALLRWTS est un petit module 
en assembleur qui facilite les 
appels à RWTS. Pour les 
profanes, RWTS est le point 
d'entrée du DOS 3.3 qui penmnet 
d'accéder directement à une 
disquette, soit en lecture, soit en 
écriture (les fonctions de 
formatage ne sont pas 
exploitées). 


Ce programme s'adresse à tous 
les débutants désireux de se 
familiariser avec la structure 
interne des disquettes, et qui ne 
disposent pas d'un éditeur de 
secteurs. 


utilisé pour tous les appels. 
L'utilisation s'étend à tout Apple 


JL J[+, Je ou /fc exploité sous 


DOS 3.3. 

Les nouvelles fonctions dispo- 

nibles sous Applesoft sont alors : 

& DISK (slot,drive,volume) 
définition de la disquette de 
travail 

& RSEC (piste,secteur,adresse) 
lecture d'un secteur 


& WSEC (piste,secteur,adresse) 
écriture d'un secteur 


& RTRK (piste,adresse) 
lecture d'une piste complète 


& WTRKK (piste,adresse) 


& BELL 
& BELI : deux fonctions 
envoyant un “beep” différent. 


& REPT (nombre,"chaîne”) 
fonction répétitive d'une chaîne 
de caractères, indiquée soit 
directement, soit sous forme 
d'une variable alphanumérique. 


Le source CALLRWTSS est 
modifiable par l'assembleur Big 
Mac. Le module objet se charge 
en $9000 et fixe Himem à cette 
valeur, mais son adresse 
d'implantation peut être 
éventuellement modifiée par un 





Son utilisation est tès simple : _écriture d'une piste complète nouvel assemblage. 
Sora rte Ii “adresse” signifie l'adresse en 
" décimal de début du buffer utilisé : 256 Ce 
charge la routine et initialise le octets pour un secteur, 4096 octets pour 
vecteur de l'ampersand qui est une piste complète. 
Source ‘CALLRWTS.SCE' 22 * BIG MAG + 
Assembleur Big Mac A à 
24 RAR RAR RAR ht 
25 * 
PRELLLLLLSL LIL LS LE LL LLC LL ELLE: 26 * 
2. + * PTS 
3 *  INSTRUCTIONS AMPERS * ZECAAAARRERRRERANE 
4 * * 29 * IMPORTANT: * 
5 * * 30 ARRARRRRRRRR RÉ EX 
6 * COPYRIGHT OCTOBRE 1984 * 31 * 
7 * + 32: *+ 
8 RRRARRRRRRRtR ht hhRh ht 33 * NE PAS MODIFIER LE PROGRAMME 
g * * 34 * SOUS PEINE DE NE PLUS FONCTIONNER 
10 *FONCTIONS: - REPT * 35 * CAR IL PRESENTE DES ADRESSES 
11 * - DISK * 36 * RESERVEES 
12 * - RSEC * 37 * 
13 * - WSEC * 38 * 
14 * - RTRK * 39 + 
ds * — WNTRK * 40 * 
16 * - BELL * 41 * 
12 * _ BELI * 42 HIMEM = 573 ;FIXE HIMEM 
18 * * 43 AIL = $3C :SAUVEGARDE DE 
19 * + TRANSMISSION 
20 RÉRARRRARRRRRRRRRRÉRRÉRÉERÉÉÉ 44 214 = $3D DE PARAMETRES 
21 * 45 AL = $42 :20NE DE SAUVEGARDE 





58 


Pom's n° 26 














46 A4H = $43 ;:AVANT L'APPEL DU 90 * FIXE HIMEM * 
SOUS-PROGRAMME 91 tt nt ot ot ne ne ne nf née nf née née te te où où où où où où 
47 LINNUM = $50 REGISTRE 16 BITS 92 * 
48 VARPNT = $83 ADRESSE DE LA 93 LDA #$00 ;: ADRESSE BASSE 
DERNIERE VARIABLE 94 STA HIMEM 
49 CHRGET = $81 ;PROCHAIN CARACTERE 95 LDA #$90 ; ADRESSE HAUTE 
50 RWTS = $3D9 ;LECTURE/ECRITURE D'UN 96 STA HIMEM+1 
SECTEUR 97 * 
51 PTRGET = SDFE3 RESULTAT DE GETARYPT CELLES EEEEEEEEE ES ES ETES ES 
52 FRMEVL = $SDD76 EVALUATION DE TXTETR 99 *  MEMORISE SLOT & DRIVE* 
53 FRMNUM = $DD67 EVALUATION DE TXTETR HIRELELELELEEELELESLELELELEL LE 
ET RANGEMENT DANS LA FAC 101 * 
54 CHKOPN = SDEBB ;TXTPTR POINTE T'IL 102 LDA SNUMI6 :DERNIER NUMERO DE 
SUR ( SLOT 
55 CHKCLS = SDEB8 ;TXTPTR POINTE T'IL 103 STA NUMSLT 
SUR }) 104 LDA DNUM ; DERNIER DRIVE UTILISE 
56 CHKCOM = $SDEBE :TXTPTR POINTE T'IL 105 STA  NUMDRV 
SUR , 106 RTS 
57 CONINT = $SE6FB :CONVERTIT LE FAC EN 107 * 
À UN SEUL OCTET 108 * 
58 AYIN = $E199 ;REND ENTIER LE FAC 109 * 
59 GETADR = $E752 ; TRANSFORME FAC EN ZOPE M 
ENTIER À 2 OCTETS 111 * INTERPRETATION CMDE  * 
60 OUTDO = $SDB5C ;AEFICHE 112 ht tttéhhthkk 
r L'ACCUMULATEUR À 113 * 
61 STROUT = SDB3A AFFICHE LA CHAINE 114 * 
POINTEE PAR (Y.A} 115 INTERPR LDX #$00 
62 TXTPTR = $B8 ;ADRESSE DU DERNIER 116 STX CM 
CARACTERE OBTENU PAR CHRGET 117 INTERI  LDY #$00 
63 CID = $19 118 LOOPI LDA CTBL,X 
64 AMPER = $3F5 ADRESSE DE & 119 BEQ TROUVE 
65 SNUMI6 = $B7E9 ; ADRESSE NUMERO DE 120 CMP 4#$FF 
SLOT 121 BEC ERREUR 
66 DNUM = $SB7EA ADRESSE NUMERO DE 122 CMP  (TXTETR),Y 
DRIVE 123 BNE SUIVANT 
67 ADDON = $D998 : AJOUTE 1 AU REGISTRE 124 INY 
Y 125 INX 
68 SNTX = SDEC9 : SYNTAX ERROR 126 BNE LOOPI 
69 PRBYTE = SFDDA ; AFFICHE À EN DEUX 127 ERREUR  JMP SNTX 
CHIFFRES HEXA 128 SUIVANT INX 
70 SPKR = $c030 :STIMULE LE HAUT 129 LDA CTBL,X 
PARLEUR 130 BNE SUIVANT 
71 VAR = $0478 131 INX 
72 SETTRK = $BE95 :LECTURE ALLOCATION 132 INC CMD 
DES PISTES 133 BNE  INTERI 
73 RWLANG = $co88 134 TROUVE  JSR ADDON 
7a + 135 ASL CM 
ES 136 LDX CM 
76 ORG $9000 197 LDA ATBL+1,X 
77 * 138 PHA 
78 * 139 LDA ATBL,X 
79 RAR AM st sf one nf où ne née ne où ne ne nf où 140 PHA 
80 * INITIALISE & * 141 RTS 
81 tt nt ot ot ne nf nf où ot ne née nf ot où où 142 * 
82 * 143 * 
83 * 144 tt ot ne ne ne nf où où où ne nf ne nf où où où 
, 84 ENTR LDA #<INTERPR 145 * TABLE DES COMMANDES * 
85 STA AMPERS#I 146 rérséenatétatetattantth 
86 LDA #>INTERPR 147 * 
87 STA AMPER+#2 148 * 
‘ 88 * 149 CTBL ASC ‘REPT' 
89 tte nn nt gt ot ne née nf fe ot of ne née fe ne née nf ot où où 150 HEX 00 
A ° e 9000- A9 1F 8D F6 03 A9 90 8D 9040- E6 19 DO DF 20 98 D9 06 
Récapitulation 9008- F7 03 A9 00 85 73 A9 90 9048- 19 A6 19 BD 7E 90 48 BD 
‘CALLRWTS 9010- 85 74 AD E9 B7 8D 18 91 9050- 7D 90 48 60 52 45 50 54 
9018- AS EA B7 8D 19 91 60 A2 9058- 00 44 49 53 4B 00 52 53 
9020- 00 86 19 AO 00 BD 54 90 9060- 45 43 00 57 53 45 43 00 
Après avoir saisi ce code sous 9028- FO 1A C9 FF FO 08 DI B8 9068- 52 54 52 4B 00 57 54 52 
moniteur, vous le sauvegarderez par 9030- DO 07 CB E8 DO EF 4C C9 9070- 4B 00 42 45 4C 4C 00 42 
BSAVE CALLRWTS,A$9000,L$23C 9038- DE E8 BD 54 90 DO FA EB 9078- 45 4C 31 00 FF E3 90 35 
EE 
Pom's n° 26 59 


I | 


60 


152 
153 
154 
155 
156 
157 
158 
E39 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 


171 


172 
273 


174 
175 
176 
T7 
178 


179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 


ATBL 


* 
* 


FINTBLE 


ZEROA1L 


MAXSLT 


RGESLT 


VAR3 


ECTXT 



















































"DISK" 
00 
RSEC" 
00 
"NSEC" 
00 s 
"RTRK'" 
00 
“WTRK'" 
00 
"BELL" 
00 
"BEL 1" 
00 
FF 


REPT-1 
DISK-1 
RSEC-1 
SECTOR 
WSEC-1 
SECTOR 
RTRK-1 
WTRK-1 
TRACK 
BELL-1 
BEL1-1 


00 
COMMANDES 

#$00 

AL 

$00B7 

#$22 

ECTXT 
TXTPTR 
MAXSLT 
TXTPTR+I 
TXTPTR 
A4L 
TXTPTR+1 
A4H 

#$00 

{TXTPTR),Y 
#$22 

VAR3 


RGESLT 
AIL 


TXTPTR 
TXTPTR 
#500 
TXTPTR+1 
TXTPTR+1 
CHRGET 
PTRGET 
$81 
FRMEV 


‘FF = FIN DE LA TABLE 


;ADRESSE FONCTION DISK 


;ADRESSE DE READ 


ADRESSE DE WRITE 


‘ADRESSE DE READ TRACK 
‘ADRESSE DE WRITE 


: SON DE CLOCHE 


{SON DE CLOCHE GRAVE 


FIN DE LÀ TABLE DES 





209 

210 

211 FRMEV 
212 MZERO 
213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 * 


225 #A##ætt tt tm RE EEE 


226 * POINT D'ENTREE DE REPT * 
227 #A#A#tttttatttatetttttt tte 


228 * 
229 * 
230 REPT 
231 

232 

233 

234 

235 

236 

237 

238 

239 

240 REPTO 
241 

242 

243 STREPT 
244 

245 

246 

247 

248 

249 


LDA 
BMI 
JMP 
LDY 
LDA 
STA 
INY 
LDA 
PHA 
INY 
LDA 
STA 
PLA 
STA 
RTS 


YSR 
YSR 
YSR 
STX 
YSR 
JSR 
LDA 
BEQ 
LDA 
BEQ 
LDY 
LDA 
STA 
LDA 
JSR 
INY 
DEC 
BNE 
DEC 
BNE 


250 FCHKCLS JM 


251 
252 


$82 

MZERO 

FRMEVL 

#$00 
{VARPNT), Y 

A1L 


{VARPNT) ,Y 


{VARENT), Y 
A4H 


A4L 


CHKOPN 
FRMNUM 
CONINT 
FINTBLE 
CHKCOM 
ZEROAIL 
AlL 
FCHKCLS 
FINTBLE 
FCHKCLS 
#$00 
A1L 
A14 
(A4L),Y 
OUTDO 


AiH 
STREPT 
FINTBLE 
REPTO 
CHKCLS 


253 tttttttrtttt txt tt 


254 * 


TABLE I.0.B. * 


255 *ttttrtttttrrrtts tt 


256 
257 
258 DEBUT 


259 NUMSLT 
260 NUMDRV 
261 VOLUME 
262 PISTE 
263 SECTEUR 
264 TABLE 
265 

266 BUFF 
267 BUFF1 
268 
269 





:PARAMETRE DOIT ETRE À 


{ADRESSE BASSE 
; ADRESSE HAUTE 
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270 MODE HEX 00 332 JÆ  CHKCLS 
271 CODERR HEX 00 333 TESTDISK JSR CHKOPN 
272 HEX 00 334 JSR  FRMNUÏ 
223 RTS 335 USR CONINT 
274 HEX 00 336 STX PISTE 
275 3377 JSR  CHKCOM 
276 338 TXTDISK JSR FRMNUM 
277 LÉRLLSSLSLSLLLLSILL:, 339 JSR CONINT 
278 * TABLE DEVICE Lé 340 STX SECTEUR 
279 trrtetteænteæeetetet 341 JSR CHKCOM 
280 342 USR  FRMNUM 
281 343 JSR GETADR 
282 HEX 00 344 LDA LINNUM 
283 HEX O1 345 STA BUFF 
284 HEX EF 346 LDA LINNUMS#1 
285 HEX D8 347 STA BUFFI 
286 348 UMP  CHKCLS 
287 349 * 
288 PARMS LDY #$17 350:* 
; 289 LDA #591 JS1 tértetttttétteetet te tt tt 
290 UMP RATS 352 * POINT D'ENTREE DE RSEC * 
291 BUFF4 HEX 00 353 ét tt tt 
292 BUFFS5 HEX 00 354 * 
t 293 BUFFB HEX 00 955 RSEC LDA #$01 
294 356 STA MODE 
295 ht téttt dt nn nf où où te ff ft 357 NTRSEC JSR TESTDISK 
296 * POINT D'ENTREE DE DISK * 358 USR PARMS 
297 mt dd Hd D D de D 0 359 BCC ERROR 
298 * 360 PRERR JMP  $D412 
299 * 361 
300 DISK JSR  CHKOPN 362 
301 JSR FRMNOUM 363 
302 JSR CONINT 364 
303 CPX #$08 365 HEX 00 
304 BCC RETN 366 ERROR RTS 
305 FAC JMP AYIN 367 * 
306 RETN STX BUFF4 368 * 
307 TXA 369 tennntettétetattatéttetet tt 
308 ASL 370 * POINT D'ENTREE DE WSEC * 
309 ASL EPP LZLLLLLLLLLILLLLLLLLLLLLE 
310 ASL 372 * 
311 ASL 373 * 
312 STA  NUMSLT 374 NSEC LDA 4$02 
313 USR  CHKCOM 375 STA MODE 
314 JSR  FRMNUM 376 BNE  NTRSEC 
315 JSR  CONINT 377 NBRESECT LDA #$0F 
316 CPX #$05 378 STA SECTEUR 
317 BCS FAC 379 CIC 
318 STX  BUFFS 380 LDA BUFF1 
319 STX NUMDRV 381 ADC #$0F 
320 LDA #$00 382 STA BUFFI 
321 STA BUFFB 383 LECTECRT JSR PARMS 
322 STA VOLUME 384 BCS PRERR 
323 JSR $00B7 385 DEC BUFF1 
324 CMP 4#$2C 386 DEC SECTEUR 
325 BEQ VDISK 387 BPL LECTECRT 
. 326 UMP CHKCLS 388 RTS 
327 VDISK JSR CHKCOM 3897* 
328 JSR FRMNUM 390 *trenteemteette tte tt tt td 
329 JUSR CONINT 391 * POINT D'ENTREE DE RTRK * 
4 330 STX BUFFB 392 Han tt ARR RÉ A 
«331 STX VOLUME 393 * 
9140- 08 90 03 4C 99 El 8E 33 9180- 35 91 8E 1A 91 4C B8 DE 91C0- 91 90 04 4C 12 D4 00 60 
9148- 91 8A OA OA OA OA 8D 18 9188- 20 BB DE 20 67 DD 20 FB 91C8- A9 02 8D 23 91 DO EC A9 
9150- 91 20 BE DE 20 67 DD 20 9190- E6 8E 1B 91 20 BE DE 20 91D0- OF 8D 1C 91 18 AD 20 91 
9158- FB E6 EO 05 B0O ES5 8E 34 9198- 67 DD 20 FB E6 8E 1C 91 91D8- 69 OF 8D 20 91 20 2C 91 
9160- 91 8E 19 91 A9 00 8D 35 91A0- 20 BE DE 20 67 DD 20 52 91E0- BO El CE 20 91 CE 1C 91 
9168- 91 8D 1A 91 20 B7 00 C3 91A8- E7 A5 50 8D 1F 91 AS 51 91E8- 10 F3 60 A9 O1 8D 23 91 
9170- 2C FO 03 4C B8 DE 20 BE 91B0- 8D 20 91 4C B8 DE A9 01 81F0- DO 05 A9 02 8D 23 91 20 
9178- DE 20 67 DD 20 FB E6 8E 91B8- 8D 23 91 20 88 91 20 2C 91F8- BB DE 20 97 91 AD IC 91 
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SE | 





62 


394 


RTRK LDA 4#$01 323 BIT SPKR 
STA MODE 424 TAY 
BNE  TESTNWTRK 425 BELLA4 DEY 
ÿ 426 BNE BELLA4 
tttttttttttttéttttttttt tt 427 SBC #1 
* POINT D'ENTRÉE DE WTRK * 428 BEQ BELLI 
thtttttttttttttéttttttttt 429 BIT SPKR 
* 430 DEX 
WTRK LDA #$02 431 BNE BELL2 
STA MODE 432 RTS 
TESTWTRK JSR CHKOPN 433 * 
JSR TXTDISK 434 * 
LDA SECTEUR 935 + 
STA PISTE 436 BEL1 LDX #$50 
UMP  NBRESECT 437 BEL2 LDA #$22 
À 438 BEL3 LDY #$02 
# 439 BELA DEY 
£ 440 BNE BEL 
Le 441 BIT SPKR 
DÉLLLLELLLLLLESLÉLLLESL] 442 TAY 
* SON DE CLOCHE Æ 443 BELLS DEY 
ef fe fe fe ét te ft 444 BNE BELLS5 
” 445 SBC #1 
7 446 BEQ BEL2 
BELL LDX #$FF 447 BIT SPKR 
BELLI1 LOA #$5B 448 DEX 
BELL2 LDY #$1B 449 BNE BEL3 
BELL3 DEY 450 RTS 
BNE BELL3 451 LST OFF 


9200- 8D 1B 91 4C CF 91 A2 FF 9218- F0 EE 2C 30 CO CA DO EA 9230- FD E9 01 FO EE 2C 30 CO 
9208- A9 SB AC 1B 88 DO FD 2C 9220- 60 A2 50 A9 22 A0 02 88 9238- CA DO EA 60 


9210- 30 CO A8 88 DO FD E9 01 9228- DO FD 2C 30 CO A8 88 DO 





Éditeur Plein Écran E Pp E 


Le Pacha 
Apple //e, //e+, 1 


Listez vos programmes Basic en avant et en arrière. 
Modifiez, insérez, effacez des caractères en plein écran 
sans relire les lignes. 
Recherchez toute chaîne de caractères. 

. Choisissez vous-même les codes de contrôle d'EPE. 

- Modifiez EPE : le fichier source est sur la disquette. 


40 et 80 colonnes, DOS et ProDOS 


150,00 F TTC franco 
(bon de commande page 74) 
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Apprendre à compter 
avec des animaux 


Alain Idelon-Ritton 


Un jeu éducatif pour les petits, tel LE CHAPEAU MAGIQUE 


est l'objet du présent programme. 
L s'agit d'apprendre les chiffres 
1 à 9 aux enfants des grandes 
classes de maternelles et du cours 
préparatoire. De façon accessoire, 
il s'agit également de comprendre 
comment utiliser le module 
HRCG du Tool-Kit d'Apple. 


Le principe est simple : un certain 
nombre d'animaux, compris entre 
1 et 9, sortent d'un chapeau 
(magique, bien sûr !) ; l'enfant 
doit les compter et taper le bon 
chiffre ; un test complet 
comprend 10 essais. L'idée n'est 
pas neuve, mais les animaux 
intéressent les bambins. 


Le DOS Tool-Kit d'Apple, qui 
permet de mixer graphismes et 
textes, était particulièrement 
adapté. Les fichiers : 


+ Animaux.Set (affichage des 
animaux) 

* Gros.Chiffre Set (affichage 
des chiffres) 

* BonhommesSet (affichage du 
bonhomme MAXWELL) 


ont été obtenus avec le 


programme ANIMATRIX de la 
disquette Tool-Kit. 


I] ne restait plus qu'à les animer 
grâce à un programme 
fonctionnant sous l'environ- 
nement du module HRCG. 


Programme 


COMBIEN D'ANIMAUX 7 _ 


Mode d'emploi 


Avec une disquette contenant les 
sept fichiers suivants : 

COMPTER. ANIMAUX 

REOOT 

RLOAD 

HRCG 

ANIMAUX. SET 

BONHOMME . SET 

GROS.CHIFFRE. SET 


il suffit de taper : 
RUN COMPTER.ANIMAUX 


Pour une bonne exploitation de ce 
programme, il est préférable 
qu'un adulte reste près de l'enfant 
pour le guider, l'aider à utiliser le 


‘COMPTER.ANIMAUX" 


10 REM *** COMPTER.ANIMAUX *** 
100 LOMEM: 24576 
110 GOSUB 5010 


120 HGR : POKE - 16302,0 


130 DIM CO(9, 20) 
140 NR = 0 


170 GOSUB 4000 
180 GOSUB 3000 





clavier et reconnaître les touches 
correspondantes aux chiffres. 


N.D.LR. : Pour des raisons de 
copyright, les fichiers RBOOT, 
RLOAD et HRCG ne figurent pas 


. sur la disquette Pom's. Il vous 


faudra donc les y transférer, à 


* partir de votre Tool-Kit, pour 


exécuter le programme. 

Le programme fonctionne 
également sans modification sous 
environnement ProDOS. En 
revanche, les fichiers ci-dessus 
devront être extraits du Tool-Kit 
pour ProDOS diffusé par Apple. 


G 


200 REM *#* CORPS PRINCIPAL 


210 NN = 
220 À = 
230 FR = 0 


INT ( RND (1) * 9) +1 
INT { RND (1) * 9) + 1 


240 FOR J = 0 TO NN - 1: VTAB 10: HTAB 19: PRINTA 
N$(A):X = PEEK ( - 16336): FOR K = 1 TO 20: N 


150 GOSUB 8010 
160 GOSUB 7020 
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EXT K: VTAB 10: HTAB 19: PRINT VVS TAB 21: PRINT VV$ 
250 X = PEEK ( - 16336) + PEEK ( - 16336) - PEEK 460 FOR J = O TO NN - 1: VTAB CO{NN,2 «* DS CES 





{ — 16336) + PEEK ( - 16336) OfNN,2 * J # 1): PRINT VVS: NEXT 
260 VTAB CO(NN,2 * J): HTAB CO(NN,2 * J + 1): PRIN 470 FOR I = 1 TO 4: VTAB 15: HTAB 4 * I - 2: PRINT 
T ANS(AJ: NEXT UV£S: VTAB 15: HTAB 40 - 4 * I: PRINT VVS: NEX 
270 VTAB 20: HTAB 2: PRINT "COMBIEN D'ANIMAUX ? "; DT 
: POKE - 16368,0: GET RES: PRINT RES 480 NR = KR + 1 
280 IF RES < “1" OR RES > "9" THEN PRINT GS: GOTO 490 IF NR < 10 THEN 210 
270 500 VTAB 3: HTAB 2: PRINT CVS: VTAB 23: HTAB 36: P 
290 RE = VAL (RES) RINT CWSCPS 
300 IF RE < > NN THEN 340 510 VTAB 5: HTAB 6: PRINT "TAPER ESC POUR TERMIN 
310 HTAB 2: PRINT CAS"O"CIS"BRAVO"CNS; ER: VTAB 7: HTAB 168: PRINT "OU" 
320 POKE 769,0: POKE 773,5: POKE 777,1: POKE 790,1 520 HCOLOR= 1: HPLOT 88,28 TO 114,28 TO 114,42 TO 
76: CALL 768 88,42 TO 88,28: HPLOT 87,27 TO 115,27 TO 115,4 
330 FOR I = 1 TO 200: NEXT 1: HTAB 2: PRINT " 3FWTO 87,43 TO 67,27 
“: GOTO 460 530 VTAB 9: HTAB 6: PRINT "TAPER R POUR RECOMMEN 
340 FR = FR + 1 CER‘": VTAB 11: HTAB 19 
350 QV = INT ( RND (1) % 6) + 218: POKE 769,16: PO 540 HCOLOR= 1: HPLOT 88,60 TO 101,60 TO 101,74 TO 
KE 773,3: POKE 777,105: POKE 790,QV: CALL 768 88,74 TO 88,60: HPLOT 87,59 TO 102,59 TO 102,7 
360 IF FR = 1 THEN GOSUB 1000: GOTO 270 5 TO 87,75 TO 87,59 
370 IF FR = 2 THEN HTAB 2: PRINT GS$SGS$SGSCIS"OUH OU 550 GET RS: IF ASC (RS) < > 27 AND RS < D "R"T 
H OUHI!!MCNS;: VTAB 15: HTAB 3: PRINT CHS(NN); HEN 550 
FOR I = 1 TO 200: NEXT I: VTAB 21: HTAB 2: P 560 IF RS = "R" THEN NR = 0: PRINT CPSCYS:: GOSUB 
RINT M" "; GOTO 270 4000: GOTO 210 
380 IF FR = 3 THEN VTAB 15: HTAB 36: PRINT GS$SCHS( 570 PRINT COSCBSCYSCPSCOSCASCYSCPS 
NN): GOTO 270 580 VTAB 15: HTAB 17: PRINT "AU REVOIR" 
390 IF FR = 4 THEN VTAB 15: HTAB 7: PRINT G$SCHS$SIN 590 FOR i = 1 TO 20: VTAB 17: HTAB 20: PRINT BO$fé 
N): GOTO 270 } 
400 IF FR = 5 THEN VTAB 15: HTAB 32: PRINT G$CH$( 600 FOR K = 1 TO 20: NEXT K: VTAB 17: HTAB 20: PRI 
NN): GOTO 270 NT BOS(5) 
410 IF FR = 6 THEN VTAB 15: HTAB 11: PRINT G$CH$( 610 FOR K = 1 TO 20: NEXT K: VTAB 17: HTAB 20: PRI 
NN): GOTO 270 NT BOS (4): FOR K = 1 TO 20: NEXT K 
420 IF FR = 7 THEN VTAB 15: HTAB 28: PRINT GSCHS( 620 NEXT I 
NN): GOTO 270 630 VTAB 17: HTAB 20: PRINT BOS(3) 
430 IF FR = 8 THEN VTAB 15: HTAB 15: PRINT G$SCH$( 640 POKE 790,144: CALL 768: POKE 790,255: CALL 7668 
NN): GOTO 270 650 TEXT : HOME : PRINT "POUR UTILISER UN AUTRE PR 
440 IF FR = 9 THEN VTAB 15: HTAB 24: PRINT G$SCHS( OGRAMME": PRINT : HTAB 68: PRINT “EN TOUTE SECU 
NN): GOTO 270 RITE": PRINT 


450 IF FR = 10 THEN VTAB 19: HTAB 21: PRINT G$G$G 660 PRINT "APPUYER SUR RESET PUIS TAPER "FP'." 
SCHS(NN): FOR K = 1 TO 500: NEXT K: VTAB 19: H 670 END 





Fichier 8B80- 00 00 00 00 00 00 00 00 8C48- 03 03 00 00 00 00 00 00 
$ ; 8B68- 00 00 00 00 00 00 00 00 8C50- 00 00 60 F8 FC FE 7E 00 
ANIMA UX.SET 8B90- 00 00 00 00 00 00 00 00 8C58- 00 00 7F 7F 7F 7F 7F 00 

8B98- 00 00 00 00 00 00 00 00 8C60- 00 00 00 03 87 8D 6F 00 

Après avoir saisi ce code sous 8BAO- 00 00 00 00 00 00 00 00 8C68- 00 00 00 00 00 00 02 FD 
moniteur, vous le sauvegarderez par 8BA8- 00 00 00 00 00 00 00 00 8C70- 79 78 38 38 38 38 00 7F 
BSAVE ANIMAUX.SET,ASSAFF,L$300 8BBO- 00 00 00 00 00 00 00 00 8C76- 7F 7F 7F 60 60 60 00 8F 
8BB6- 00 00 00 00 00 00 00 00 8C80- 7B 31 O1 O1 01 01 00 01 

8AFF- 00 8BCO- 00 00 00 00 00 00 00 00 8C88- 00 00 00 00 00 00 00 00 
8B00- 00 00 00 00 00 00 00 00 8BC8- 00 00 00 00 00 00 00 EO 8C90- 00 40 60 70 78 7E 79 A2 
8B0B- 00 00 00 00 00 40 70 00 8BD0- E0 60 F6 BE OF 01 00 01 8C98- 24 3C SA 3C 9C 18 18 00 
8B10- 00 00 40 60 20 7F 7F 00 8BD8- 81 01 00 00 00 00 00 42 8CA0- 00 00 00 00 00 78 7C 18 
8B18- 00 00 31 71 5B 7F 7F 7C 8BEO- 64 36 64 42 00 00 00 03 8CAB- 18 18 18 1C IE 1F 8F 7E 
8B20- 7E 7F 7F 7E 7C 74 14 7F 8BE6- 07 7F 7F 03 00 00 40 00 8CB0- 7D 7D OC OC OC OC 84 0F 
8B28- ?7F ?F ?F 7F 7F 2F 40 6 8BF0- 00 00 01 03 83 03 81 00 8CB8- 07 07 06 06 06 06 82 00 
8B30- 31 1F 00 00 00 01 02 00 8BF8- 00 00 00 00 00 00 00 00 8CCO- 00 00 00 00 00 60 78 00 
8B38- 00 78 FE 06 FE 78 00 60 8C00- 00 00 00 00 00 00 00 00 8CC6- CO 40 EO 40 43 5F 7F 00 
8B40- 70 39 1F OE 8F 3D 70 OI 8CO08- 00 30 78 7C 7E FF 7F 00 8CDO- 01 03 0E 07 O1 O1 O1 O0 
8B48- 00 00 00 00 00 80 00 00 8C10- 00 00 00 01 81 C1 43 84 8CD8- 00 00 00 00 00 00 00 00 
8B50- 01 01 03 06 7C 78 00 00 8C18- OC 1C 3E BF 7F 7F 3F FF 8CE0- 00 00 00 00 00 00 00 00 
8B58- 00 00 00 00 00 00 00 00 8C20- EF 4 C6 00 00 00 00 E3 8CE8- 00 00 00 00 00 00 00 00 
8B60- 00 00 00 00 00 00 00 00 8Cc28- 67 F7 FF 7F FF 7E FE 1F 8CF0- 00 00 00 00 00 00 00 00 
8B68- 00 00 00 00 00 00 00 00 8C30- 0F OF 6F 9F 37 B3 03 00 8CF8- 00 00 00 00 00 00 00 00 
8B70- 00 00 00 00 00 00 00 00 8C38- 00 00 00 00 00 00 00 7C 8D00- 00 00 00 00 00 00 00 7C 
8B78- 00 00 00 00 00 00 00 00 8C40- FC 78 00 00 00 00 00 03 8D08- 78 60 40 40 CO 00 00 7F 
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I s'agit d'un système graphique Vous avez un Apple {te avec Chat Mauve eu un fc ? 
double-haute résolution écrit en Vous avez Pascal 1.2 ? 


Pascal. COGO vous permet de 
manipuler des graphiques 
grâce à un langage de 


description des objets - points, Utilisez 


angles- et à l'emploi de 
fonctions primitives de 


manipulation très puissantes : 
cercle, tangente, Par Nicolas Montsarrat 
intersections, parallèles, etc. ii 
: est ainsi possible de tracer des 
grilles, des cercles, des Apple //e, /lc 


segments de droite, des 
| tangentes communes à deux 
cercles, de calculer des 


AÉtER es des anolee… Ce programme, destiné à résoudre 


des problèmes de géométrie plane, 
L'éditeur permet une saisie  COMPOrte des instructions de stockage 
rapide du langage. Une  SUr fichier afin de permettre la reprise 
instruction COGO peut-être d'un calcul. 
exécutée dès la saisie pour 


faciliter la mise au point, ou au 
sein d'un programme. 


150,00 F TTC, franco 
Bon de commande page 





8D10- 3F 1F 07 04 84 09 00 00 8DD8- 00 00 00 00 00 00 00 00 6748- 00 00 00 00 00 00 00 00 
8D18- 00 00 00 00 00 00 00 00 8DEO- 00 00 00 00 00 00 00 00 6750- 00 00 00 00 00 00 00 00 
8D20- 00 00 00 00 00 00 00 00 8DE8- 00 00 00 00 00 00 00 00 6758- 00 00 00 00 00 00 00 00 
8D28- 00 67 6F 7F 7F 7F 7F 00 8DF0- 00 00 00 00 00 00 00 00 6760- 00 00 00 00 00 00 00 00 
8D30- 00 00 01 03 86 1F 3F 06 8DF8- 00 00 00 00 00 00 00 6768- 00 00 00 00 00 00 00 00 
8D38- 0A 12 22 4A 42 44 48 22 6770- 00 00 00 00 00 00 00 00 
8D40- 14 08 1C 3E 3E 3E 3E 30 6778- 00 00 00 00 00 00 00 00 
8D48- 28 24 22 29 21 11 09 44 a 6780- OF 1F 1F OF 07 07 07 07 
8D50- 42 44 22 12 OA 06 00 3E Fichier 6788- 60 60 60 60 60 60 60 70 


D 00. |'FONFONMESET sn. 


8D68- 00 00 00 00 CO CO 00 00 67A0- 00 00 00 00 00 00 00 03 
8D70- 12 9B 3F 2D BF BF 3F 00 Après avoir sarsi ce code sous moniteur,  67A8- 00 00 00 40 60 20 00 00 
: 8D78- 00 00 00 00 40 40 40 IE vous le sauvegarderez par BSAVE 67B0- 7C 7E 73 71 70 70 70 70 
8D80- OC 1E 3F 3F 7F 7F 7F 40 BONHOMME.SET,A$6700,L$300 67B8- 07 OF OD 0D 0G OD 05 01 
8D88- 40 40 00 00 00 20 40 7F 67C0- 78 38 78 70 70 30 30 38 
8D90- 7F 3F 3F 1F 0E 08 07 00 6700- 00 00 00 00 00 00 00 00 67C8- 00 00 00 01 07 06 06 00 
8D938- 00 00 00 CO CO CO 00 00 6708- 00 00 00 00 00 00 00 00 67D0- 00 00 00 00 00 00 00 00 
8DAO- 00 01 03 87 1D 3F 07 00 6710- 00 00 00 00 00 00 00 00 67D8- 00 00 00 00 00 00 00 00 
8DA8- 40 60 60 70 70 78 78 03 6718- 00 00 00 00 00 00 00 00 67E0- 00 00 00 00 00 00 00 00 
8DB0- 07 07 OF 8F 57 27 07 78 6720- 00 00 00 00 00 00 00 00 67E8- 00 00 00 00 00 00 00 00 
8DB8- 7C FA 7A 99 8D 79 60 O7 6728- 00 00 00 00 00 00 00 00 67F0- 00 00 00 00 00 00 00 00 
8DC0- 03 03 01 00 00 00 83 00 6730- 00 00 00 00 00 00 00 00 67F8- 00 00 00 00 00 00 00 00 
8DC8- 00 00 00 06 0C 58 FO 00 6738- 00 00 00 00 00 00 00 00 6800- 00 00 00 00 00 00 00 00 
8DDO- 00 00 00 00 00 00 00 00 6740- 00 00 00 00 00 00 00 00 6808- 00 OC 1E 1E IE OC 7F 7F 
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1000 


1020 


1040 


1050 


1060 


1070 


1100 
1110 
1120 
























REM *#*#*PAGE2 


W = 5 


x 
F 


( 


1050 
IF K 


IF K 


K % 1: 
1080 VTAB 5: HTAB 4 * (K - 1) + 1: PRINT CHSIK) 
1090 IF K > 1 THEN FOR L = 1 TO K - 1: 


AB 4 * (K - 2) + 1: PRINT VVS$: NEXT L 


W=Ww 


1010 PRINT CO$SCBSCOSCDS 


1030 FOR K = 1 TO NN 
34:Y = 10 

O0: GOSUB 2000:I = 
I = 2: GOSUB 2000: IF X > 4 * 


1; 


GOSUB 2000:X 
{K - 1} + 1 THEN 


NE IS 


< NN AND NN < > 2 THEN VTAB 10: HTAB 4 
* K: PRINT VVS; 


< NN AND NN = 2 THEN VIAB 10: HTAB 4 


PRINT VVS$; 


# 5 


NEXT K 
IF NN = 2 THEN VTAB Y: HTAB X + 4: PRINT BOS 
{4)J: GOTO 1140 


* 


VTAB 5: HT 


3120 






















FOR I = 1 TO 9: FOR J = O0 TO I - 1: READ CO{I 
2 *# J).i READ CO(I,2 * J + Li NEXT J: NEXT-I 


3130 DATA 3,19 

3140 DATA 6,11,6,27 

3150 DATA 6,11,3,19,6,27 

3160 DATA 8,7,4,15,4,23,8, 31 

3170 DATA 11,5,6,11,3,19,6,27,11,32 

3180 DATA 8,7,6,11,4,15,4,23,6,27,8,31 

3190 DATA 8,7,6,11,4,15,3,19,4,23,6,27,8,31 

3200 DATA 11,5,8,7,6,11,4,15,4,23,6,27,8,31,11, 33 

3210 DATA 11,5,8,7,6,11,4,15,3,19,4,23,6,27,8,31,1 
1,33 

3220 RETURN 

4000 REM *** CHAPEAU & ETOILES 

4010 HCOLOR= 5 

4020 FOR Y = 100 TO 140: HPLOT 120,Y TO 145,Y: NEX 
T 

4030 FOR Y = 96 TO 99: HPLOT 110,Y TO 155,Y: NEXT 

4040 VTAB 4: HTAB 2: PRINT "*": VTAB 5: HTAB 36: P 


RINT "#t': VTAB 6: HTAB 6: PRINT "*": VTAB 3: H 





66 


1130 VTAB Y: HTAB X + 3: PRINT BOS(4) 
id son à À 9 ac Nu TAB 35: PRINT “*": VTAB 5: HTAB 9: PRINT “#*r: 
1150 PRINT COSCASCOSCDSCOSCES: FOR I = 4 TO 13: VT VTAB 7: HTAB 39: PRINT "*" 

AB I: PRINT CES: NEXT I: PRINT COSCAS 4050 RETURN 
Éxe0 REURN 5000 REM *** INITIALISATIONS 
2000 VTAB Y: HTAB X:GG = PEEK ( - 16336): PRINT À | 5010 #ÆONERR GOTO 6010 

NS(NN);: VTAB Y: PRINT BOS(I);: FOR J = 1 To Ww 020 TEXT : HOME : HGR :ADRS = 0 

NON à ÉUEN 5030 PRINT CHRS (4)"BLOAD RBOOT": CALL 520 
3000 REM *** EFFETS SONORES 5040 ADRS = USR (0), "HRCG" 
3010 FOR I = 0 TO 49: READ SO: POKE 768 + 1,50: NE °050 POKE 216,0 

Dur à 5060 IF ADRS < 0 THEN ADRS = ADRS + 65536 
3020 DATA 169,0,133,24,169,5,133 5070 CS = ADRS - 3 * 768: HIMEM: CS 
3030 DATA 25,169,1,133,26,164,25 5080 D$ = CHRS (4) 
3040 DATA 165,26,32,34,3, 73,255 5090 PRINT D$"BLOAD ANIMAUX.SET,A";CS 
3050 DATA 73,208, 32,34,3 5100 PRINT D$"BLOAD GROS.CHIFFRE.SET,A"CS + 768 
3060 DATA 136,208,241,230 5110 PRINT DS$S'"BLOAD BONHOMME.SET,A"CS + 2 *“ 768 
3070 DATA 26,16,235, 96,44,48,192 5120 CH = INT (CS # 256):CL = CS - CH * 256 
3080 DATA 166,24,134,27,170,202 5130 POKE ADRS + ?7,CL: POKE ADRS + 8,CH: CALL ADRS 
3090 DATA 208,253,198,27,16,248 +3 
duc op de 5140 RETURN 
3110 REM *** POSITION DES ANIMAUX 6000 REM *** TRAITEMENT ERREUR 

6010 TEXT 
6810- 7F 3F 3F 3F LE 3F 3F 3F 68D8- 00 00 00 00 00 00 00 00 DbG 
6818- 33 33 33 33 33 33 33 73 68E0- 00 00 00 00 00 00 00 00 DéG DéG 
6820- 00 00 00 00 00 00 40 60 68E8- 00 00 00 00 00 00 00 00 Dé 
6828- 70 30 30 30 30 30 30 20 68F0- 00 00 00 00 C0 00 00 00 Dé DéG DéG 
6830- 00 00 00 00 00 00 00 40 68F8- 00 00 00 00 00 00 00 00 DéG 
6838- 00 00 00 00 00 00 00 01 6900- 00 00 00 00 00 00 00 00 DbG NI DéG 
s 

6840- 03 03 03 03 03 03 03 01 6908- 00 18 3C 3C 3C 18 1C JE pu 





IT 
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og" 
7170 BOS$S(0) = CBS + CAS + "3" + CLS +" S " + CCS + 
nTU " + CCS + "YW " + CDS + CAS + "On 
7180 BOS{I) = CBS + CAS + "3" + CLS + "XY " + CCS + 
LOS SH ICESNF 12: 4-+ GDS E CAS +. "Or" 
7190 BOS$(2] = CBS + CAS + "3" + CLS + " 34" + CCS + 
mS67" +. CCS + ” 89" + CDS + CAS + "O0" 
7200 BO${(3) = CBS + CAS + "3DAG" + CCS + "ERH" + CC 
$ + "FC " + CD$ + CAS + "O0" 
7210 BOS$(4) = CB$ + CAS + "3PAG" + CC$ + "MBH" + CC 
$ + "FC " + CD$ + CAS + "O0" 
7220 BOS$(5) = CBS + CA$ + "3OAG" + CC$ + "MBH" + CC 
SMESMEC "+ CDS + CAS\+ "Or 
7230 BOS$(6) = CBS + CAS + "3NAG" + CCS + "MBH" + CC 
SÉATEC + CDS + CASv+ M" 
7240 RETURN 
8000 REM *** INITIALISATIONS 
8010 REM *** APPLESOFT 
68020 CA$ = CHR$ (1):CB$ = CHR$ (2)]:CC$ = CHR$ (3 


6020 PRINT "ERREUR DANS RLOAD OU RBOOT" 
6030 POKE 216,0 
6040 END 
7000 REM *** DEFINITION DES 
7010 REM *#** FIGURINES 
7020 AN$S(1] = CAS + "l" + CB$ + "ABC" + CC$ + "DEF" 
+ CCS + "GHI" #4 0CD$S CAS + TO" 
7030 ANS(2) = CAS + "1" + CBS + "JKLM" + CCS + "NOP 
Q" + CDS + CAS + "Oo" 
7040 ANS (3) = CAS + "1" + CB$ + MR" + CHRS$S (101) + 
CHR$S (102) + CDS + CAS + "O" 
FOS0 ANS(4) GAS & "INMHICBS #  S'' + CCS + "TU 0 
+ CC$ + "VW " + CDS + CAS + "0" 
7060 ANS(5) = CAS + "1" + CBS + "XYZ" + CCS + CHR$ 
(97) + CHRS (98) + " "+ + CDS + CAS + "O0" 
7070 ANS$S(6) = CAS + "1" + CBS + CHR$ (103) i CHR$S 
(104) + CHR$S (105) + CCS + CHR$ (106) + CH 
R$ (107) + CHR$ (108) + CDS + CAS + "O0" 


, 7080 ANS(7) = CAS + "1" + CBS + CHR$ (109) + CHRS 
LION + nd + EC LORS O0 + CRT J:CD$ = CHR$S (4):CES = CHRS (5):CF$S = CHRS 
CLR: CCS + CHRS (113) es CHRS (114) +'onm (6) CIS — CHR$ {9) :CK$ Li CHARS f11) :CLS = CH 
& CEE R'CAST A vpn R$ (12):CN$ = CHR$ (14):CO$ = CHR$S (15):CP$ 
| 7090 ANS(8) = CAS + "1" + CB$ + " " + CHR$ (115) + = CHR$ (16):CS$ = CHR$ (19) :CT$ = CHR$ (20) 


8030 CVS = CHR$ (22):CWS$ = CHARS (23}:CY$ = CHR$ 
f25):CZ$ = CHR$ (26) 

8040 P1$ = CO$ à CA$:P2$ = CO$ + CBS:PTS = CO$ + CT 
S:PN$S = CO$ + CPS 


CHR$S (116) + CCS + " " + CHRS (117) + CHRS 
(118) + CC$ + CHR$ (121) + CHR$S (119) + CH 
R$ (120) + CD$ + CAS + “O" 


7100 ANS(9) = CAS + "1" + CBS + "I" + CHR$S (34) + 8050 KB = - 16384:G$ = CHR$S (7) 

Mgr + CCS + MS8E" + CDS + CAS + “On 8060 PRINT CPSCKS$S: HTAB 11: VTAB 1: PRINT " LE CHA 
7110 VYS$ = CBS + " MMCCSEE "+ CG PEAU MAGIQUE " 

"+ CDS 8070 HCOLOR= 1: HPLOT 0,0 TO 0,191 TO 279,191 TO 2 
7120 FOR I = 1 TO 9 79,0: HPLOT 1,0 TO 1,190 TO 278,190 TO 278,1: 
7130 J = 6 * (I - 1} HPLOT 1,0 TO 66,0: HPLOT 1,1 TO 66,1 


7140 CHS(I) = CAS + "2" + CBS + CHR$ (33 + J) + C 8080 HPLOT 214,0 TO 279,0: HPLOT 214,1 TO 278,1 
HR$ (34 + J] + CCS + CHR$ (35 + J) + CHR$ (3° g9g90 HCOLOR= 5: HPLOT 70,9 TO 210,9 
6 + J} + CC$ + CHR$ (37 + J) + CHR$ (38 + J) 8100 POKE 230,64: HCOLOR= 6: HPLOT 1,1: CALI, 62454 


+ CDS + CA$ + "0" : POKE 230, 32 
7150 NEXT I 8110 PRINT CO$CBS: FOR I = 4 TO 13: VTAB I: PRINT 
7160 CH$(0) = CAS + "2" + CBS + "WX" + CCS + "YZ" + CES: NEXT I: PRINT COSCAS 


CC$ + CHR$S (91) + CHRS (92) + CDS + CA$ + ”  g120 RETURN 











Fichier 8B70- OF 8E 9C B8 F8 70 70 00 8C38- 00 00 00 CO 78 FC 7C 8E 
8B78- 00 00 60 60 00 00 00 70 8C40- 0E 87 07 83 1F 8F OF FO 
‘GROS. CHIFFRES 8B80- 38 1C OF 07 1C 38 70 00 8C48- 70 B8 38 9C 1C 8E 0E 80 
SET’ 8B88- 84 86 06 86 OC 78 60 70 8C50- 00 00 00 00 00 00 00 78 
. 8B90- 70 F8 B8 9C 8E OF 03 00 8C58- 7C 8F OF OF OF OF OF 0F 
8B98- 40 EO 60 FO 70 B8 38 00 8C60- 1F BC 78 F8 F8 F8 78 6F 
Après avoir saisi ce code sous moniteur, 8BA0- 00 00 00 00 00 00 00 5C 8C68- 1E FC ?7C FE lLE 6F OF BC 
vous le sauvegarderez par BSAVE 8BA8- 1C 8E OE 87 07 07 07 00 8C70- 3C 8F 8F 9F BC 78 F8 0F 
GAOS.CHIFFRES.SET,AS$S8AFF,L$200 8BB0O- 00 00 00 00 07 07 07 7F 8Cc78- OF OF 8F LE 7C 78 70 F8 
p 8BB8- 7F 7F 00 00 00 00 00 ?7F 8C80- F8 F8 78 3C 1F OF 07 FC 
8AFF- 00 8BCO- 7F 7F 07 07 07 07 07 7F 8C88- 7C FE IE 8F OF 0F 0F 87 
8B00- 00 00 00 00 00 00 00 40 8BC8- 7F 7F 07 07 07 07 07 3F 8C90- 8F 9F BC 78 F8 F8 F8 0F 
| 8B08- 40 EO 60 BO 30 98 18 07 8BDO- 3F 3F 00 00 00 00 00 07 8C98- 8F 1E 7C 78 70 00 00 F8 
8B10- 07 07 07 07 07 07 07 &C 8BD8- 07 07 07 7F 7F 00 00 00 8CAO- 78 BC 3F 9F 1F 8E 0E 00 
8B18- OC 86 06 00 00 00 00 07 8BEO- 00 00 00 87 68F 1C 9C 00 8CA8- 00 CO 40 EO 60 FO 00 87 
8B20- 07 07 07 07 07 07 07 00 8BE8- 00 00 07 87 8E FC 70 36 8CBO- 07 83 03 81 01 80 00 FC 
8B28- 00 00 00 00 00 00 00 07 8BFO0- 38 38 38 38 9C 8F 07 00 8CB8- 7C FE 1E 8F OF OF OF 67 
8B30- 07 07 07 07 07 07 07 60 8BF68- 00 CO 40 EO 60 FO 70 00 8CCO- 6F 9F BC 78 F8 F8 F8 0F 
8B38- 78 7C 86 06 06 06 06 03 8C00- 07 83 03 61 01 80 00 B8 8CC8- OF OF OF OF OF OF OF F8 
8B40- OF 1F 9C B8 70 70 70 00 8C08- 38 FC 7C FE LE 8F 0F 00 8CDO- F8 F8 F8 F8 F8 F8 F8 6F 
8B48- 00 00 00 40 60 70 78 Be 8C10- 00 87 8F 9F BC 78 F8 OF 8CD8- 1E FE 7C FC 00 00 00 78 
8B50- 38 9E 8F 87 83 01 00 3C 8C18- OF OF 8F LE 7C 78 70 F8 8CE0- 8C 9F 6F 687 00 00 00 00 
8B58- 9E 1E 8F OF 7F 7F 7F 00 8C20- F8 F8 78 3C 1F OF 07 7F 8CE8- 00 00 00 00 00 00 00 00 
8B60- 00 00 00 00 7F 7F 7F 60 8c28- 7F 7F 00 00 00 00 00 7F 8CFO- 00 00 00 00 00 00 00 00 
8B68- 78 OC 86 06 86 684 00 03 8C30- 7F 7F 70 B8 38 9C IC 00 8CF8- 00 00 00 00 00 00 00 
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Les courbes de Lissajous sont 
des figures que l'on peut obtenir 
sur l'écran d'un oscilloscope, en 
y faisant entrer deux courants 
altematifs simultanément, mais 
l'un par l'entrée horizontale et 
l'autre par l'entrée verticale. 
L'effet obtenu dépend du rapport 
des deux fréquences, ainsi que du 
déphasage entre les deux 
courants. 

Afin d'accélérer le tracé de cette 
courbe, le cercle trigonométrique 
est divisé ici en 256 parties ( au 
lieu de 2 x ) puis, en Basic, les 
sinus et cosinus de chaque angle 
sont calculés et ramenés aux 
coordonnées possibles de chaque 
point sur l'écran de l'Apple, puis 
stockés dans une table en 
mémoire. Cette pratique est très 
courante. 


Le programme assembleur écrit 
en Tool-Kit est lui-même 
documenté, il suffit d'ajouter que 
le paddle 0 fait varier rapidement 
le déphasage entre les deux 
courants (effet de rotation 
horizontale plus rapide ), alors 
que le paddle 1 détermine le 
rapport des fréquences, toujours 
entre les deux courants. Il 
entraîne le changement de la 
forme de la courbe, du simple 
trait horizontal, à une sorte de 
couronne royale, en passant par 
le cercle dans le cas de 2 courants 
de même fréquence. Ce rapport 
est limité à 16 afin de conserver 
une défmition suffisante à la 
courbe (sous moniteur, remplacer 
les LSR par des NOP 4A - EA 
pour vous en convaincre). 


Quand la vue de ces courbes aura 
atteint son effet hypnotique 
maximum, VOUS pourrez toujours 
vous endormir après avoir 
appuyé sur ESC pour arrêter le 


programme. 
G 


Fichier 
‘LISS AJOUS.DATA”’ 


Ce fichier binaire est une liste de 
sinus et cosinus que vous obtiendrez 
en lançant l'exécution duprograrune 
Basic LISSAJOUS.F AIT DAT À 


Comment faire ? 


1 
créer le fichier 
LISSAJOUS.DAT À en lançani 
l'exécution de LISSAJOUS.FAIT 
DATA (si vous ne disposez pas de 
la disquette Ponts) 
2 
saisir et sauvegarder l'objet 
LISSAJOUS.OBJ. 
3 
faire RUN LISSAJOUS.BAS. 
4 
régler fréquence ei phase à l'aide 


des padiles. 


Programme 
‘LISSAJOUS.FAIT 
DATA 


O HIMEM: 20000:A = 20000:B = 
À + 256$PI2 "8 #*.. AN (1 
) 

20 FOR I = 0 TO 255:J = PI2 
* I / 256: PRINT I, 

21) LEOKE A 1,95 + 95 * SIN 
(J): PRINT PEEK (A + I}, 

22 POKE B + I,142 + 86 * CO 
S (J): PRINT PEEK (B + I) 

26 NEXT I: PRINT CHR$S (4)'"B 
SAVE LISSAJOUS.DATA,A'"A",L 
542" 





ki . 
MASSE 
STE ro 


14 





Norbert Vurlod 


Programme 
‘LISSAJOUS. BAS’ 


10 PRINT CHR$ (4)"BLOAD 
LISSAJOUS.DATA,A$6000" 

20 PRINT CHR$ (4)"BRUN LI 
SSAJOUS . OBJ" 





Récapitulation 
‘LISSAJOUS.OBJ' 


Après avoir saisi ce code sous moniteur, 
vous le sauvegarderez par BSAVE 
LISSAJOUS.OBJ,A$300,L$9E 


0300- A9 00 85 07 85 08 A9 20 
0308- 85 E6 A9 55 8D 32 03 20 
0310- F2 F3 2C 54 CO 2C 52 CO 
0318- 2C 57 CO 2C 50 CO A2 03 
0320- 20 EC F6 A9 60 45 E6 85 
0328- E6 A9 01 4D 32 03 80 32 
0330- 03 2C 00 CO 20 F2 F3 A2 
0338- 00 20 1E FB 98 18 65 07 
0340- 85 09 AA BD 00 60 AC 00 
0348- AE 00 61 20 57 F4 A9 00 
0350- 85 08 A2 O1 20 IE FB 98 
0358- 4A 4A 4A 48 85 18 AS 09 
0360- 18 65 18 85 09 AA BC 00 
0368- 60 A6 08 BD 00 61 A2 00 
0370- 20 3A F5 20 CB F5 E6 08 
0378- D0 E4 A6 09 BC 00 60 A2 
0380- 00 AD 00 61 20 3A F5 20 
0388- CB F5 AD 00 CO C9 9B FO 
0390- 06 E6 07 DO 8E FO 8C 2C 
0398- 10 CO 20 2F FB 60 
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Source ‘LISSAJOUS.SRCE’ 


Assembleur Tool-Kit 





1 ORG $300 
2 Rhthtttttttttt te tt tt tt tt tt ttt tte tt tt 
3 * COURBE DE LISSAJOUS 
4 RRRRRRRRRRRRRRRRRRRRRR RAR RAR RÉ R 
5 :# 
6 + 
7 ANGLE1 EQU $07 :DESSINE LA COURBE 
8 ANGLE2 EQU $08 *ROTATION HORIZONTALE 
9 CRD EQU $09 
10 RAP.FREQ EQU S18 ; RAPPORT DES FREQUENCES 
11$# 
12 HCIR EQU $F3r2 
13 PREAD EQU SFBIE ; LECTURE PADDLE 
14 HLIN EQU S$SFS53A 64 LDA #$00 
15% 65 STA ANGLE2 
16 LÉRELELEEELELSE LES ELLE EEE ELLES LELSELSE) 66 * 
17 * INITIALISATIONS 67 LDX #$01 LECTURE DU 
18 ÉLRSLLLLESL SELLE ELLES LELE SL ELELELELELELEE) 68 JSR PREAD :PADDLE 1 
19 * 69 TYA 
20 LDA #$00 70 LSR À :DIVISION 
21 STA ANGLEI1 71 LSR À :PAR 16 DE 
22 STA  ANGLE2 72 LSR À :PDL 1) 
LE Re 73 LSR À 
24 LDA #$20 : TRACE EN P.1 74 STA RAP.FREQ ;MAXIMUM 16 PICS 
25 STA $E6 POREELELLELEELELEEEESEEEELELESSSESEELLLEEE 
26 LDA #$55 :VISU DE P.2 76 * TRACE DE LA BOUCLE 
27 STA PAGE TT ORRRRRRRRRRRRRRRRRRRRRRRRRÉRRLRRRRRRERRRR 
28 JSR HCLR ;EFFACE LA PAGE HGRI 78 BOUCLE2 EQU #* 
291% 79 LDA  ORD 
30 BIT $CO054 ; COMMUTE P.1 80 CLC 
31 BIT S$COS2 ;MODE NON MIXTE 81 ADC RAP.FREQ 
32 BIT S$c057 <HIRES 82 STA ORD 
13 BIT $C050 :MODE GRAPHIQUE P.1 83 TAX 
34 * 84 LDY TAB.SIN,X 
35 LDX 4#$03 85 LDX  ANGLE2 
36 JSR S$F6EC ; HCOLOR=3 86 LDA TAB.COS, X 
LT S 87 LDX #$00 
38 ELLES LELES EEE LEE ELSE LEE ESS SELS ELSELEE) 88 JSR HLIN :HPLOT TO PE 4 
39 * PROGRAMME PRINCIPAL 83 JSR S$SFSCB /REINITIALISATION HGR 
40 LÉLSEELELE ELLE LEE EELELELELESESESELELELES) 90 INC ANGLE2 
41 * 91 BNE  BOUCLE2 
42 BOUCLEL EQU * 92 * 
43 LDA #560 93 * 
44 EOR $E6 :CONTIENT S20 ou S40 94 RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRARAR 
45 STA $E6 ;POUR P.1 OU P.2 95 * FERME LA BOUCLE 
46 LDA #$01 : TRACE SUR UNE PAGE 
47 EOR PAGE :PENDANT QUE L'AUTRE 
48 STA PAGE :EST AFFICHÉE... 
49 BIT $C000 s { $CO54 OU $COSS J 
50 PAGE EQU ‘“-2 
21 JSR HCLR « EFFACE LA PAGE CACHEE 
S2 LDX #$00 LECTURE DU 
53 JSR PREAD :PADDLE O0 
54 TYA 
55 CLC 
56 ADC ANGLEI 
57 STA ORD 
58 TAX : TRACE DU 
59 LDA TAB.SIN,X ; PREMIER 
60 LDOY #$00 ;POINT 
61 LDX TAB.COS 
62 JSR S$SF457 :HPLOT X,Y 
63 * 
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57 LDX ORD 112 FIN EQU 
98 LDY TAB.SIN,X 113 BIT 
919 LDX #$00 114 JSR 
100 LDA TAB.COS 125 RTS 
101 JSR HLIN 116 * 
102 VUSR $F5CB : INIT HIRES 
103 & 
104 IDA $CO000 TEST CLAVIER 
105 CMP #128+27 «TOUCHE ESC 120 DSECT 
106 BEQ FIN 121 ORG 
107% 122 TAB.SIN DS 
108 INC ANGLEI 123 TAB,.COS DS 
109 BNE  BOUCLE1 ;: ON RECOMMENCE 124 DEND 
110 BEQ BOUCLEI 


dl * 


* 


$Cc010 
SFB2F 


RAS CLAVIER 
: TEXT 


117 RRRRRARARRRRAARRARRRRRRRRRARRRRARRRÉRÉR RER 


118 * TABLE DES SINUS ET DES COSINUS 


Courrier des Lecteurs 


FORMAT (numéro 23) 


Avez-vous essayé de répondre MON 
TITRE dans l'option &T du programme 
FORMAT de Pom's 23 ? Sous DOS 
3.3, le DOS intercepte la saisie comme 
une commande et envoie donc un 
SYNTAX ERROR. Je ne parle pas des 
conséquences avec un titre tel que 
INITIALES... 
Les 54 octets du patch ci-dessous 
éliminent ce petit probième. En bonus, 
J'ai rajouté quelques octets pour une 
gestion complémentaire des codes de 
contrôle : 
CTRL-D inséré par exemple dans un 
progranvre sera listé D. 
BLOAD FORMAT 
CALL-151 
94AB:F0 7 4C I8 95 A9 O FO 2 A9 

20 85 CF A9 3 85 CF 20 F8 94 
94BF:A2 BF 86 33 A9 FF C5 76 DO 

2 86 76 A5 38 48 A5 39 48 
94D1;A9 E1 85 38 A9 3 85 39 20 

6A FD E0 21 B0 22 EA 
956E:60 
9581 :60 
959D:60 
93B86:C9 20 BO 11 69 40 48 A9 5E£ 

20 D4 93 68 
93C3:EA EA EA EA EA EA EA FA 
UNLOCK FORMAT' 
BSAVE FORMAT, AS90D1,L$ 527 
Ce patch tourne convne un fichier Exec 
(FORMAT.PATCH sur la disquette 
Por's), à n'utiliser bien sûr que sur une 
version de sauvegarde... Il ne 
fonctionne que pour la version DOS 3.3 
du programme. Son adaptation à 
ProDOS ne devrait pas vous poser de 
problèmes. 


Yvan Koenig, 06220 Vallauris 





COFD 

J'ai de gros problèmes pour faire 
fonctionner le programme de conversion 
COFD paru dans le numéro 16 de 
Pom's, malgré des tentatives sur 
ProDOS 1.0 et 1.1.1. 


Docteur Gérard Lacurie 
13112 LA DESTROUSSE 


Voici les deux lignes à modifier: 


117 IF PEEK(48896) <> 76 THEN FLASH : 
PRINT "VOUS N'ETES PAS SOUS PRODOS !": 
NORMAL:E ND 
6021 POKE 811,163 ; POKE 812,154 
Cette dernière ligne appelle une routine 
du Basic.System en $SAA3, auparavant 
située en $9AAF, qui transfère Les 
adresses $BE34-BE38 vers $36-39. Par 
manque de place (il faut faire "cohabiter" 
les deux DOS en mémoire), elle ne 
pouvait être incluse dans le programme 
CQFD.B, d'où des problèmes lorsque 
ProDOS évoiue… 





AppleWriter et *° 


Quelques mots pour vous indiquer le 
moyen de modifier AppleWriter 
ProDOS pour qu'iltienne compte des * 
et “en justification totale. À l'aide d'un 
éditeur de secteur, il convient de 
modifier les zones comme indiqué 
ci-dessous : 
Piste 00, Secteur OA, Octet 2A 
mettre 5B au lieu de 19 
Piste OF, Secteur OF, Octet E9 
mettre 4C 20 60 EA EA 
Piste 10, Secteur 00, Octet 09 
mettre 4C 40 60 
Piste 11, Secteur 09, Octet 20 
mettre CD DE B8 DO 03 4C F5 
49 C9 08 F0 03 4C EE 49 E6 
75 E6 75 C4 75 F0 03 4C A8 
49 4C 05 4A EA EA EA Ad 75 
B9 00 1C C9 20 F0 OD C9 08 
FO 03 88 DO F2 C6 75 C6 75 
EA EA Ad 75 4C EF 4B 00 
Cette modification convient pour les 
Apple lle 6502 & 65CO02 ; elle intervient 
sur le programme AWDSYS. 


Michel DUROC, 97220 Trinité 


Uoici une solution non ambiquê des 
accents qut posent bien des 
problèmes inéiégants nême au mois 
d'août, Faire Un essai Sur une 


copie est une bonne précaution... 


Snake 


J'aurais souhaité utiliser le jeu Snake 
{numéro 24 de Pom's) avec de jeunes 


119 RhhhtttrRkrhteéthktététtteéréttttètértt## 


$6000 
$100 
5100 


enfants et, pour cela, réduire la vitesse 
de déplacement du serpent. Philippe 
Krepper pourrait-il me fournir une 
méthode qui éviterait un réassemblage ? 


Yves Robert, 36000 Châteauroux 


lère solution 
Programme SN AKE.FUSION : 
supprimer de la ligne 50e 
PRINT DS"BSAVE"F$",A973,L3111" 
et ajouter : 
60 DATA 169,15,133,213,32,79, 15 
-198,213,208,249, 234 
70 FOR L = 0 TO 11: READ A: POKE 
3672 + L,A: NEXT 
80 PRINT D$S"BSAVE"F$",A973,L3111" 
La valeur 15 de la ligne 60 est a 
déterminer expérimentalement : plus elle 
est grande, plus le serpent ralentit. 


2ème solution 
Elle nécessite un assembleur mais 
permet de faire varier à loisir la vitesse : 


Insé rer après la ligne 477: 

(1478) 

478 RALENT INC BCLO04#1 

479 RTS 

430 ACCELR DEC BCLO04+1 

481 BEO RALENT 

482 RTS 

(CTRL E) 

Insérer après la ligne 466 : 

(1467) 

467 CM #$CI ; MA” 
468 BEQ ACCELR 

469 CM #$D2 ; TR 
470 BEC RALENT 
{CTRL E]} 

Remplacer les lignes 338 à 346 par : 
(M338, 346) 

338 BCLD4 LDA LE 

339 STA $D5S 

340 BCLO5 JSR LITSNS 

341 DEC $D5 

342 aNE BCLO05 

{(CTRL £) 

Ensuite, assembler le programme et le 
sauver par : 


BSAVE SNAKE.OBJ, ASCOO,L$S35FS6 

et enfin faire tourner le programme 
SNAKE.FUSION en ayant modifié ia 
ligne 50 ,z23111 devient , 3113. 

En cours de partie, on peut alors 
modifier la vitesse par A et R. 
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Gaec IMLiCTO-informations 


Plus de quatre millions de 
micro-ordinateurs vendus : c'est 
le total atteint cet été par Apple 
toutes machines confondues. 
Chiffre significatif : la firme à la 
pomme serait en train de gagner 
ses paris. À preuve l'article écrit 
en juillet dans la revue Infoworld 
par Dave Winer, fondateur de la 
firme Living Text (l'éditeur de 
Think Tank). Dave Winer y 
explique que les clients se 
bousculent dans les boutiques 
pour acheter des logiciels pour le 
Mac, que les développeurs se 
bagarrent pour lui écrire des 
programmes et qu'Apple a pris 
une avance technologique 
décisive sur IBM. 


Programmes : 
l'artitlerie lourde 


Exagérations ? Il est sûr que les 
ventes de Macintosh ont réel- 
lement décollées avec le MacPlus. 
Il est certain aussi que les 
programmes se font de plus en 
plus nombreux, que leur qualité 
dépasse celle des programmes du 
PC. Ainsi Excel, dont les ama- 
teurs de “Big Blue” attendent 
encore la transposition sur leur 
PC favori. Ainsi surtout 
d'Ashton Tate, qui a présenté à 
la Macworld Expo de Boston la 
version pour Macintosh de son 
célèbrissime “DBase”, la reine 
des bases de données. 

DBase pour le Mac est un 
gestionnaire de bases de données 
relationnel avec des relations 
illustrées comme dans 4ème 
Dimension (pour relier entre 
eux jusqu'à 36 fichiers). Vendu 
outre Atlantique 495 dollars, ce 
programme fait une abondante 
utilisation des icônes et peut récu- 
pérer et utiliser les fichiers créés 
sur DBase II et III sur le PC. Le 
système comprend un langage 
utilisant les raffinements des 
déclarations conditionnelles, des 
fonctions mathématiques, on peut 
y créer des fenêtres d'alerte, des 
menus personnalisés, etc. «ll est 
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supérieur à DBase III Plus pour 
le PC» a carrément assuré 
Edward Esber, le président 
d'Ashton Tate. On avait jadis 
attendu en vain la consécration du 
Macintosh par Jazz. Et si Ashton 
Tate réussissait là où Lotus a 
échoué ? 


Nouveautés : 
cris et chuchotements 


A l'heure où vous lirez ces li- 
gnes, on saura probablement tout 
du nouvel Apple //. A dire vrai, le 
seul mystère résidait dans son 
prix, qu'on pensait difficilement 
pouvoir être inférieur à 15 000,00 
F. Pour le reste, la très haute 
définition de son écran et ses 
possibilités sonores en faisaient 
une sorte d'Amiga à la sauce 
Apple, capable d'utiliser notam- 
ment les programmes existant 
pour le //. 


La question du prix est impor- 
tante. On s'attend en effet d'ici à 
Noël à une bagarre comme la 
micro-informatique n'en avait 
encore jamais vu. Côté PC, 
Amstrad et Tandy étaient à la fin 
juillet sur le point de franchir 
dans le bon sens (pour l'utilisa- 
teur) la limite des 4 000,00 F. Et 
Atari mijotait un ST utilisant un 
processeur 68020 (le plus rapide 
de la famille de celui du Mac), 
deux mégas de mémoire et le 
système Unix. Le tout à prix 
“canon”. Dans ces conditions, le 
prix du nouvel Apple devenait un 
élément clé de sa survie. 


Côté Mac, les rumeurs venues de 
Califomie portaient d'abord sur 
l'amélioration (on parle d'un dou- 
blement et de 16 teintes de gris) 
de la résolution graphique du 
Macintosh. Ce problème de l'a- 
mélioration de la qualité de 
l'écran est semble t-il devenu si 
important qu'Alain Rossmann, et 
quelques autres génies de chez 
Apple ont quitté cet été la firme à 
la pomme pour monter une fume 
spécialisée dans les moniteurs de 
très haute qualité. Tiens, tiens... 


Il se murmurait aussi que le 
nouveau Mac modulaire aurait 
précisément un écran de très 
haute résolution, et utilisant un 
processeur 68020, deviendrait 
pour moins de 5000 dollars un 
concurrent sérieux pour les 
“stations de travail ” scientifiques 
du genre Apollo. 


Un outil pour 
scientifiques 


Ce marché paraît si intéressant, 
que les fabricants de périphéri- 
ques l'ont déja investi. Dans son 
numéro d'août, la revue Mac 
World a consacré sa couverture et 
tout un article à des améliorations 
permettant de faire travailler le 
Macintosh plus rapidement qu'un 
mini ordinateur Vax. 

Le plus impressionnant est un 
Macintosh gonflé par la firme 
Levco et baptisé Prodigy 4. 
Avec notamment un processeur 
68020, cadencé à 16 mégahertz, 
(permettant de disposer d'une 
puissance d'un MIPS : un million 
d'instructions par seconde), un 
coprocesseur 68881 et 4 mégas 
de mémoire vive. Plus rapide 
qu'un Vax, pour quelque 7000 
dollars. Ce n'est pas donné, mais 
il paraît que les scientifiques y 
trouvent leur compte : «on a les 
avantages d'un Vax, sans être 
obligé de se le partager à 15» 
expliquait l'un d'eux au journal 
Infoworld. Autre Mac gonflé : 
celui de Général Computer : 
l'Hyperdrive 2000 déja décrit 
dans cette rubrique, utilisant lui, 
un 68000 plus rapide et un 
coprocesseur 68881. Deux autres 
firmes ont choisi de se limiter à 
l'ajout de ce coprocesseur 
Quesse, avec le Maccelerator, 
utilisant un 32081 (Prix : 495 
dollars) et Novy avec le même 
coprocesseur dans un ‘‘accéléra- 
teur à virgule flottante” (Prix : 
449 dollars). A noter que l'accé- 
lérateur de Quesse s'installe à 
l'intérieur d'un Macintosh Plus, 
ce que ne peut faire celui de 
Novy. 


“4... __E 
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Un Mac "pro" 


En attendant que ces merveilles 
fassent partie de l'équipement de 
base du Macintosh, on peut 
remarquer que les programmes 
deviennent à la fois plus scienti- 
fiques et plus professionnels. 


Les scientifiques sont enfin ser- 
vis. Avec toute une série de 
traitements de texte scientifiques. 
Toute une série sont dans le do- 
maine public. Weinberg déve- 
loppé par Allan Boardio per- 
met d'éditer et d'imprimer toutes 
sortes de formules mathématiques 
à base de Ÿ, de V, etc. Alpha 
Systèmes importe Techfont, 
une série de police de caractères 
techniques, (1 200,00 Francs) 
SciFont, des caractères scienti- 
fiques (635,00 Francs) et 
Logifonts, comprenant les 
composants des circuits logiques 
(510,00 Francs). 


A noter que le britannique Elite 
Software a lui aussi réalisé un 
traitement de texte scientifique 
s'ajoutant à sa gamme Format 
80 pour les Apple //. Pour les 
amateurs de mathématiques, un 
programme permet de résoudre 
sans douleurs des équations : 
c'est Power Math de Brain 
Power, développé par un ancien 
élève du MIT et un ancien de 
Cambridge. 


Avec ses possibilités graphiques, 
le Mac est un parfait outil d'ana- 
lyse. A preuve, Cricket Graph, 
importé par KA Informatique. 
un grapheur comportant des fonc: 
tions statistiques, la possibilité de 
mixer les graphiques avec des 
textes et d'imprimer le tout en 
couleurs sur l'Imagewriter II. 
Rien de tel que l'image pour 
analyser les données. 


C'est ce qu'a aussi compris 
Abvent avec son Anatool!l. Un 
outil permettant de modéliser les 
procédures dans une usine, de 
définir un dictionnaire de don- 
nées, des spécifications de pro- 
cessus, de vérification de sys- 
tème, etc. Verra t-on davantage 
de Mac en usine grâce à ce 
programme ? 


Mac organisateur 
d'idées 

Living Videotext, l'auteur de 
Think Tank a sorti More, qui 
pennet de traduire graphiquement 
en organigramme, toute une 
hiérarchie de noms ou d'idées. 
Tandis que fleurissent les imita- 
tions. MaxThink de Max 
Think Inc. est vendu la moitié 
du prix de Think Tank : 195 
dollars. Calliope d'Innovision 
utilise des icônes représentant les 
idées formulées dans des fenêtres 
différentes. Ces icônes peuvent 
être reliées entre elles. MacSpec 
de LM Software permet aussi 
d'organiser des spécifications ou 
des idées, en numérotant et 
indentant automatiquement, en 
renumérotant lorsque l'on déplace 
les sections, en établissant auto- 
matiquement des tables de matiè- 
res (Pnx : 200 dollars). 


Accessoires de bureau 


Et voici surtout Acta. Avantage 
décisif : il s'installe dans le menu 
Pomme comme un accessoire de 
bureau. peut organiser des docu- 
ments avec 2000 niveaux d'idées. 
Ses dossiers peuvent être enregis- 
trés comme des documents Mac 
Write (et donc utilisables par 
Word). Son seul défaut : on ne 
peut imprimer les idées directe- 
ment, il faut d'abord les trans- 
férer dans Macwrite ou Word. 
Pnx : 60 dollars. Mainstay pro- 
pose aussi, pour exactement le 
même prix, Think Now, lui 
aussi s'installe dans le menu 
Pomme et étend ou contracte le 
plan à la demande. 


Les accessoires de bureau du me- 
nu Pomme sont décidément bien 
pratiques, puisque utilisables 
dans tous les environnements et 
dans tous les programmes. A 
noter parmi ceux qui sont 
particulièrement utiles, toujours 
chez Mainstay, TypeNow, qui 
transforme le Mac en machine à 
écrire : tout ce qu'on tape est 
immédiatement et directement 
imprimé sur l'ImageWriter. Prix 
raisonnable : 40 dollars. Idéal 
pour écrire un mémo ou des 
enveloppes. Top Desk de 
Cortland Computer, com- 








prend pour 60 dollars, un éditeur 
de macros, un spooler permettant 
à l'imprimante d'imprimer en 
qualité graphique pendant que 
l'on continue à travailler, la 
possibilité d'ouvrir huit fenêtres 
dans Macwrite, un crypteur de 
fichiers pour les protéger des 
yeux indiscrets, un système dé- 
sactivant l'écran pour le protéger 
des brûlures, la possibilité de 
transférer rapidement des élé- 
ments entre applications sans 
utiliser le finder, le tout en acces- 
soires de bureau. 


Alpha Systèmes importe 
Locater, un accessoire de 
bureau du menu Pomme qui 
permet d'afficher l'arborescence 
conduisant à un document 
d'après son nom, sa première 
lettre ou sa date de création. 
Quasiment indispensable à ceux 
qui utilisent le HFS avec un 
disque dur. Pnix : 350,00 Francs. 


Parmi les autres accessoires de 
bureau en voici deux bien utiles : 
Art Grabber + distribué par 
Hayden permet de prélever et 
coller immédiatement un dessin 
dans Macwrite sans quitter cette 
application et fonctionne avec 
MacPlus. J Clock, un acces- 
soire du domaine public permet 
d'installer à demeure au démar- 
rage une horloge visible en per- 
manence dans le coin supérieur 
droit de tous les programmes. 


Autre accessoire amusant qui ne 
s'installe pas dans le menu Pom- 
me, Postermaker, de Strider 
Software permet pour 40 dol- 
lars de réaliser des posters de 
n'importe quel document Mac 
Paint agrandi jusqu'à 32 fois. 


Traitements de texte 


La décision d'Apple de ne plus 
livrer systématiquement Macwrite 
avec les Macintosh ne cesse de 
provoquer des vocations. Du côté 
des anciens, remarquons d'abord 
une version 4.6 de Macwrite. Elle 
comporte seulement comme nou- 
veauté en haut de l'écran une 
barre avec des icônes définis- 
sables par l'utilisateur représen- 
tant les choix des menus, et 
l'affichage de l'heure en perma- 
nence. Word Handler d'ALS 
vendu actuellement seulement 30 
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dollars comprend la possibilité 
d'ouvrir 4 fenêtres, de se dépla- 
cer latéralement comme dans 
Word, de lire les fichiers Mac 
Write, un compteur de mots, des 
abréviations automatiques et le 
passage automatique majuscules/ 
minuscules. 


En France, on attend avec impa- 
tience Writer Plus d'ACI avec 
(entre autres) ses possibilités d'é- 
criture en colonnes et sa césure 
automatique. Microsoft a re- 
poussé jusqu'à la fin de l'année 
sa nouvelle version de Word 
(comprenant notamment un cor- 
recteur intégré d'orthographes et 
un organisateur d'idées) pour 
laisser toutes ses chances à Mac 
Works, officiellement présenté 
en août à la MacWorld Expo de 
Boston. 


Works, la version pour Mac 
d'Appleworks devrait faire un 
sacré tabac. Voici en effet un 
programme intégré utilisable par 
tous. II a su éviter la lourdeur et 
la lenteur de Jazz grâce à une 
donnée importante : il travaille en 
mémoire vive. Les tris sur base 
de données s'effectuent à une 
vitesse impressionnante. Le ta- 
bleur (avec grapheur incorporé) 
qui ne cède rien à Multiplan per- 
met de disposer de 256 colonnes 
et 9999 rangées, de disposer de 
S4 fonctions et de plusieurs fenê- 
tres parmi lesquelles on se dé- 
place comme dans Excel. Le petit 
programme de communications 
fonctionne parfaitement et pro- 
pose une innovation quasi révolu- 
tionnaire : les transferts s'effec- 
tuent en tâche de fond, En clair, 
on peut recevoir un fichier 
important tout en continuant à 
travailler sur le traitement de 
texte. Et quel traitement de texte. 
Il comporte à la fois la facilité de 
Macwrite, les possibilités de 
paramétrage des paragraphes de 
Word avec deux nouveautés : la 
possibilité de dessiner ou d'enca- 
drer, incorporée à l'application, 
ainsi que la possibilité d'écrire un 
texte à côté d'une image ou d'un 
dessin qu'on a collé dans un 
texte. Souplesse, facilité, rapi- 
dité : Works offre pour 295 
dollars, tout ce qu'un utilisateur 
moyen peut souhaiter. Avec son 
fonctionnement en RAM, il utilise 


au mieux les possibilités du 
Macintosh Plus. Avec d'un côté 
MacWorks et de l'autre Excel, 
voici Jazz très dangereusement 
pris en tenaille entre un intégré 
facile et un intégrable puissant. 


Du hard 


Un peu monstiueuse la modifica- 
tion de Custom Computer 
baptisée Double DD installe tout 
simplement un second lecteur à 
l'intérieur du Macintosh, 52 fente 
d'introduction se présente sur le 
côté droit du Mac. Aux États 
Unis, cette modification coûte 
189 dollars pour un lecteur de 
400K 0 et immobilise le Mac pour 
deux jours. En France, aucun 
audacieux n'a encoie tenté ça. 


Aux Etats Unis, toujours, 
General Computer présente 
son premier disque dur... ex- 
terne : le FX 20. Prix 1200 dol- 
lars pour 20 Mégas. Branchement 
sur le port SCSI. 


BDAO ? 

Voici pour terminer, un traitement 
de texte un peu spécial, c'est 
Comic Works écrit par 
MacroMind (les auteurs de 
Videoworks et Musicworks). 
Comic Works esttout simplement 
un éditeur de bandes dessinées 
combinant les possibilités de 
MacWrite pour les textes et de 
Macpaint pour les dessins (avec 
notamment un aérographe avec 
buse ajustable). Tout un choix de 
bulles est prévu pour contenir les 
textes écrits avec des polices du 
genre “Vampire” ou ‘“Crypt”. 
Voici pour le grand public le 
premier programme de BDAO : la 
bande dessinée assistée par 
ordinateur. 


Formation 


Le succès de son séminaire 
avancé sur Multiplan (avril 86) a 
conduit KA a renouveler l'opéra- 
tion le mercredi 8 octobre à 
l'American Chamber of 
Commerce, toujours en pré- 
sence de Bernard Vergnes, Prési- 
dent de Microsoft France. Ce 
séminaire d'une journée, animé 
par Hervé Thiriez, s'adresse à 
tous les utilisateurs confirrnés de 
Multiplan. 


Adresses 


Levco - 66160 Lusk Boulevard 
San Diego CA 92121 


Quesse Computer Co 
P.O0. Box 922 Issaquah 
WA 98027 


Novy Systems 
69 Ravenwood 
Ct Ormond Beach FL 32074 


Allan Boardio Ass 
2000 Center Stn°1225 
Berkeley CA 94704 


Elite Software 
4 Hawthylands Drive - Hailsham 
East Sussex BN271HE UK 


Alpha Systemes 
29 Bd Gambetta 
38000 Grenoble 
Tél. : 76 43 1997 


Brain Power - 24009 Ventura 
Bd Calabasas CA 91302 


Abvent 
9903 Santa Monica Bd suite 268 
Beverly Hills CA 90212 


MaxThink Inc. 
230 Crocket Ave, Piedmont 
CA 94160 


Innovision 
PO Box 1317 Los Altos 
CA 94023 


Symmetry 
761 E University Dr 
Ste C. Mesa AZ 85203 


LM Software - PO Box 93 
Belmont CA 94002 


Mainstay - 28611B Canwood 
Agoura CA 91301 


Cortland Computer 
PO Box 9916 
Berkeley CA 94709 


Strider Software 
Beecher Lake Road Pembine 
Wisconsin WI 54156 


ALS - 1283 Reamwood Ave 
Sunnyvale CA 94089 


Custom Computer 
3601 Parkview Lan n°1C 
Irvine CA 92715 


KA Service Formation 
14, rue Magellan - 75008 Paris 
Tél: 47 80 22 23 


American Chamber 
of Commerce 

21, avenüe Georges V 
75008 Paris 


G 





Pom's n° 26 


73 








74 


Bon de commande 


Disquettes 


HAIFA source (cf. Pom's n° 5) 
(cf. Pom's n° 10) 
DISK-MANAGER (cf. Pom's n° 11) 
BASICIUM (cf. Pom's n° 13) 
(cf. Pom's n° 23) 
Échange E.P.E. 5.0... (cf. Pom's n° 23) 
(cf. Pom's n° 15) 
(cf. Porm's n° 18) 
(cf. Pom's n° 19) 
(cf. Pom's n° 21) 
(cf. Pom's n° 21) 
(cf. Pom's n° 25) 
(cf. page 57) 


Recueils 


N°1, recueil des revues 1 à 4 
Disquettes d'accompagnement 1 à 4 
N°2, recueil des revues 5 à 8 
Disquettes d'accompagnement S à 8 
N°3, recueil des revues 9 à 12 
Disquettes d'accompagnement 9 à 12 


Revues, disquettes 


Revues 4 7 8 (n°9 épuisé) 
Revues 10 11 12 13 14 15 16 17 18 192021 22 23 24 2526 


Disquettes Apple IE, //e, //c 


V2 3 4 S 6 7 8 9 40 11 12 13 
14 15 16 17 18 19 20 21 22 23 24 25 26 


Disquettes Macintosb 
14/15/16 groupées 
17 18 19 20 21 22 23 24 25 26 


Mac ‘A’ 
MacAstuces 
“Raccourci” 


Abonnements Pour 6 numéros à partir du n° 


Abonnement à la revue seule 
Abonnement revue + disquettes Apple IE, //e, //c 
Abonnement revue + disquettes Macintosh 


Total TTC : 
Supplément avion hois CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 
Envoyez ce bon et votre règlement à : EDITIONS ME V, 64 rue des Chantiers 78000 VERSAILLES 


Nom : 


Adresse : 
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PROGRAMMER UTILISER 














Mac Astuces 450 FF — Multiplan 
pour Macintosh 4140 FF — Le livre de 
250FF — Basic + 80 routines sur Jazz 220FF —- 50 modèles Multiplan 
Apple 1I95FF — Les ressources de l'Apple pour gérer sur Apple etIBM/PC 430FF — 
ic 95FF — Assembleur de l'Apple 420 FF -— Appleworks au travail 460FF — 
Introduction à ProDOS sur Apple 85FF — Photographie sur Apple et Amstrad 450FF. 
Système ProDOS sur Apple 

490FF — Programmation JOUER 

système de l'Apple Il 490FF — DES LIVRES POUR 

Apple. modems et serveurs - 402 programmes pour 
430FF — Clefs pour l'Apple lic CREER Apple 420FF — Super jeux 


et lle 65CO2  445FF. Apple 120 FF 
Programmation des jeux d'Arcade sur 


Apple Il 440FF — Apple, logique et 
systèmes experts 120 FF — Création et 
animation graphique sur Apple 335 FF 


Clefs pour Macintosch 450 FF — 
Basic Microsoft 2.0 sur Macintosh 


DEMANDER LE CATALOGUE GRATUIT à PSI. Diffusion - BP 86 - 77402 LAGNY CEDEX 








